blob: e391b685fc2519cd6a8e77be04f05280d328e50e [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-error "END DO statement expected" }
! { dg-warning "Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE" "" { target "*-*-*" } 6 }
! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }