1! { dg-do compile }
2! { dg-options "-std=legacy" }
3
4! Check for error message when computed and assigned gotos reference
5! illegal label numbers.
6
7      ASSIGN 1 TO I
8      GOTO (1, 2, 3, 42), 2 ! { dg-error "is never defined" }
9      GOTO I, (1, 2, 3, 43) ! { dg-error "is never defined" }
10 1    CONTINUE
11 2    CONTINUE
12 3    CONTINUE
13c     No label 42 or 43.
14      END
15