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