Increase timeout factor for hppa*-*-* in gcc.dg/long_branch.c
[official-gcc.git] / gcc / testsuite / gfortran.dg / do_4.f
blobe391b685fc2519cd6a8e77be04f05280d328e50e
1 ! { dg-do compile }
2 ! Verify that the loop not terminated on an action-stmt is correctly rejected
3 do10i=1,20
4 if(i.eq.5)then
5 goto 10
6 10 endif ! { dg-error "is within another block" }
7 end ! { dg-error "END DO statement expected" }
8 ! { dg-warning "Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE" "" { target "*-*-*" } 6 }
9 ! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }