Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/stabilize-6812.83.B
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
goto_4.f90
blob: 7340814cc0196dd54a14713196f4c4ae36811df6 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
17708
:
Jumping
to
END
DO statements didn
't do the right thing
! PR 38507: The warning we used to give was wrong
program test
j = 0
do 10 i=1,3
if(i == 2) goto 10
j = j+1
10 enddo
if (j/=2) call abort
end