gcc/testsuite/gfortran.dg/goto_7.f

   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
  13 c     No label 42 or 43.
  14       END