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