1C { dg-do run } 2C PR 32635 - this used to call an ICE in verify_ssa at -O2. 3C An empty main program ensures that we cycle through all 4C 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) 15c 16 dimension ib(*),itable(*),ip(3,*),ip2(*),ix(6,*),imat(nummat+1,*) 17c 18c 19 ipnt=1 20 do 20 i=1,numel 21 if (imat(ix(5,i),mx0).ne.1) go to 20 22 20 continue 23c 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 31c 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 37c 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 45c 46 if (ip(1,ii).eq.i2) go to 40 47 kflg=0 48 if (isum.ne.ipnt) go to 25 49c 50 return 51 end 52