summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/goto_6.f
blob: 5b054b636bcec412a27ab774fc3ca0225925ac0a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
! { 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