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.
11 GO TO I, (1262,1263,1264)
18 41260 IF ( ICON01 - 1263 ) 21260, 11260, 21260
19 11260 IVPASS = IVPASS + 1
21 21260 IVFAIL = IVFAIL + 1
23 IF (IVFAIL /= 0) CALL abort ()