Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
end_block_label_1.f90
blob: feb12fcf8dbdd2df2c8365ff10d3fa573d5bc9bc [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
50071
!
A label
in
an
END
BLOCK statement was ignored
;
as
a result
,
a GOTO
!
to such a label was rejected
.
!
!
Contributed
by
Tobias
Burnus
<
burnus@net
-
b
.
de
>
block
goto
1
print
*,
'Hello'
1
end
block
end