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