1! { dg-do run }
2! { dg-options "-w" }
3
4! PR fortran/41403
5! Assigned-goto with label list used to compare label addresses which
6! failed with optimization.  Check this works correctly now.
7! This is the most reduced Fortran code from the PR.
8
9      IVFAIL=0
10      ASSIGN 1263 TO I
11      GO TO I, (1262,1263,1264)
12 1262 ICON01 = 1262
13      GO TO 1265
14 1263 ICON01 = 1263
15      GO TO 1265
16 1264 ICON01 = 1264
17 1265 CONTINUE
1841260 IF ( ICON01 - 1263 )  21260, 11260, 21260
1911260 IVPASS = IVPASS + 1
20      GO TO 1271
2121260 IVFAIL = IVFAIL + 1
22 1271 CONTINUE
23      IF (IVFAIL /= 0) CALL abort ()
24      END
25