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
16