URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr32635.f] - Blame information for rev 801

Line No.	Rev	Author	Line
1	694	jeremybenn	`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`