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 "" }