Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/pr32635.f @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
68:561a7518be6b | 111:04ced10e8804 |
---|---|
1 C { dg-do run } | |
2 C PR 32635 - this used to call an ICE in verify_ssa at -O2. | |
3 C An empty main program ensures that we cycle through all | |
4 C the options. | |
5 | |
6 program main | |
7 end | |
8 | |
9 subroutine aled7(ix,ib,itable,ip,ip2,imat,nummat, | |
10 1 mx0,k,numnp,numel,iadj) | |
11 | |
12 implicit double precision (a-h,o-z) dp | |
13 | |
14 common/cale6/fst(16,4),ist(256,14) | |
15 c | |
16 dimension ib(*),itable(*),ip(3,*),ip2(*),ix(6,*),imat(nummat+1,*) | |
17 c | |
18 c | |
19 ipnt=1 | |
20 do 20 i=1,numel | |
21 if (imat(ix(5,i),mx0).ne.1) go to 20 | |
22 20 continue | |
23 c | |
24 k=0 | |
25 kflg=0 | |
26 25 do 30 i=1,ipnt | |
27 if (ip(1,i).eq.0) go to 30 | |
28 ii=i | |
29 go to 40 | |
30 30 continue | |
31 c | |
32 40 k=k+1 | |
33 iel=ip(3,ii) | |
34 ib(k+iadj)=i1 | |
35 if (kflg.eq.1) ip(1,ii)=0 | |
36 kflg=1 | |
37 c | |
38 isum=0 | |
39 do 50 i=1,ipnt | |
40 if (ip(1,i).eq.0) isum=isum+1 | |
41 if (ip(1,i).eq.0.or.ip(1,i).ne.i2) go to 50 | |
42 ii=i | |
43 if (ip(3,i).eq.iel) go to 40 | |
44 50 continue | |
45 c | |
46 if (ip(1,ii).eq.i2) go to 40 | |
47 kflg=0 | |
48 if (isum.ne.ipnt) go to 25 | |
49 c | |
50 return | |
51 end |