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