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
9 subroutine aled7(ix,ib,itable,ip,ip2,imat,nummat,
10 1 mx0,k,numnp,numel,iadj)
12 implicit double precision (a-h,o-z) dp
14 common/cale6/fst(16,4),ist(256,14)
16 dimension ib(*),itable(*),ip(3,*),ip2(*),ix(6,*),imat(nummat+1,*)
21 if (imat(ix(5,i),mx0).ne.1) go to 20
27 if (ip(1,i).eq.0) go to 30
35 if (kflg.eq.1) ip(1,ii)=0
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
43 if (ip(3,i).eq.iel) go to 40
46 if (ip(1,ii).eq.i2) go to 40
48 if (isum.ne.ipnt) go to 25