10 lines
258 B
FortranFixed
10 lines
258 B
FortranFixed
|
! { 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 "" }
|
||
|
|