Sign in
llvm
/
llvm-archive
/
261104aacb9ea48cf3a0dc7bfb461760b894944b
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
pr17708.f90
blob: b696b0c27579c00f337c7b3ed34c945041e402b3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program test
j
=
0
do
10
i
=
1
,
3
if
(
i
==
2
)
goto
10
!
{
dg
-
warning
"jumps to END"
}
j
=
j
+
1
10
enddo
!
{
dg
-
warning
"jumps to END"
}
if
(
j
/=
2
)
call abort
end