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/] [goto_6.f] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run } ! { dg-options "-w" } ! PR fortran/41403 ! Assigned-goto with label list used to compare label addresses which ! failed with optimization. Check this works correctly now. ! This is the most reduced Fortran code from the PR. IVFAIL=0 ASSIGN 1263 TO I GO TO I, (1262,1263,1264) 1262 ICON01 = 1262 GO TO 1265 1263 ICON01 = 1263 GO TO 1265 1264 ICON01 = 1264 1265 CONTINUE 41260 IF ( ICON01 - 1263 ) 21260, 11260, 21260 11260 IVPASS = IVPASS + 1 GO TO 1271 21260 IVFAIL = IVFAIL + 1 1271 CONTINUE IF (IVFAIL /= 0) CALL abort () END
Go to most recent revision | Compare with Previous | Blame | View Log