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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [assign_7.f] - Blame information for rev 399

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


C { dg-do compile }
C Option passed to avoid excess errors from obsolete warning
C { dg-options "-w" }
 
      PROGRAM FM013
      IF (ICZERO) 31270, 1270, 31270
 1270 CONTINUE
 1272 ASSIGN 1273 TO J
 1273 ASSIGN 1274 TO J
 1274 ASSIGN 1275 TO J
      GOTO 1276
 1275 continue
 1276 GOTO J, ( 1272, 1273, 1274, 1275 )
31270 IVDELE = IVDELE + 1
      END
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`C { dg-do compile }`
2			`C Option passed to avoid excess errors from obsolete warning`
3			`C { dg-options "-w" }`
4
5			`PROGRAM FM013`
6			`IF (ICZERO) 31270, 1270, 31270`
7			`1270 CONTINUE`
8			`1272 ASSIGN 1273 TO J`
9			`1273 ASSIGN 1274 TO J`
10			`1274 ASSIGN 1275 TO J`
11			`GOTO 1276`
12			`1275 continue`
13			`1276 GOTO J, ( 1272, 1273, 1274, 1275 )`
14			`31270 IVDELE = IVDELE + 1`
15			`END`
16

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [assign_7.f] - Blame information for rev 399