Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/stabilize-6812.83.B
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
do_4.f
blob: 6d688a0a32381fa83325efd9934cc53fecd852d0 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
Verify
that the loop
not
terminated on an action
-
stmt
is
correctly rejected
do10i
=
1
,
20
if
(
i
.
eq
.
5
)
then
goto
10
10
endif
!
{
dg
-
error
"is within another block"
}
end
!
{
dg
-
excess
-
errors
""
}