Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.2.1
/
gcc
/
testsuite
/
gfortran.dg
/
goto_1.f
blob: 11b7c535f10c57ca8d706f379148cf60caec120b [
file
] [
log
] [
blame
]
!
{
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
)
CALL ABORT
I
=
0
GOTO
3
ELSE
3
I
=
2
END
IF
IF
(
I
.
NE
.
2
)
CALL ABORT
END