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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [do_1.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


! test various forms of the DO statement
! inspired by PR14066
LOGICAL L
DO i=1,10
END DO
DO 10 i=1,20
   DO 20,j=1,10,2
20 CONTINUE
10 END DO
L = .TRUE.
DO WHILE(L)
   L = .FALSE.
END DO
DO 50 WHILE(.NOT.L)
   L = .TRUE.
50 CONTINUE
DO
   DO 30
      DO 40
40    CONTINUE
30 END DO
END DO
outer: DO i=1,20
   inner: DO,j=i,30
      IF (j.EQ.2*i) CYCLE outer
   END DO inner
END DO outer
END

Line No.	Rev	Author	Line
1	695	jeremybenn	`! test various forms of the DO statement`
2			`! inspired by PR14066`
3			`LOGICAL L`
4			`DO i=1,10`
5			`END DO`
6			`DO 10 i=1,20`
7			`DO 20,j=1,10,2`
8			`20 CONTINUE`
9			`10 END DO`
10			`L = .TRUE.`
11			`DO WHILE(L)`
12			`L = .FALSE.`
13			`END DO`
14			`DO 50 WHILE(.NOT.L)`
15			`L = .TRUE.`
16			`50 CONTINUE`
17			`DO`
18			`DO 30`
19			`DO 40`
20			`40 CONTINUE`
21			`30 END DO`
22			`END DO`
23			`outer: DO i=1,20`
24			`inner: DO,j=i,30`
25			`IF (j.EQ.2*i) CYCLE outer`
26			`END DO inner`
27			`END DO outer`
28			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [do_1.f90] - Blame information for rev 801