gcc/testsuite/gfortran.dg/goto_1.f

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 ! PR 18540
   4 ! Verify that old-style cross-block GOTOs work
   5       I = 1
   6       GO TO 2
   7       IF (I .EQ. 0) THEN
   8  2       IF (I .NE. 1) CALL ABORT
   9          I = 0
  10          GOTO 3
  11       ELSE
  12  3       I = 2
  13       END IF
  14       IF (I .NE. 2) CALL ABORT
  15       END