summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/do_4.f
blob: 6d688a0a32381fa83325efd9934cc53fecd852d0 (plain)
1
2
3
4
5
6
7
8
9
! { 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-excess-errors "" }