gcc/testsuite/gfortran.dg/goto_4.f90

   1 ! { dg-do run }
   2 ! PR 17708: Jumping to END DO statements didn't do the right thing
   3 ! PR 38507: The warning we used to give was wrong
   4       program test
   5         j = 0
   6         do 10 i=1,3
   7            if(i == 2) goto 10
   8            j = j+1
   9 10      enddo
  10         if (j/=2) call abort
  11       end