* cfghooks.c (verify_flow_info): Disable check that all probabilities
[official-gcc.git] / gcc / testsuite / gfortran.dg / do_4.f
blob6d688a0a32381fa83325efd9934cc53fecd852d0
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
8 ! { dg-excess-errors "" }