gcc/testsuite/gfortran.dg/gomp/pr41344.f

   1       subroutine xrotate(nerr)
   2
   3       common /dfm/ndfl
   4
   5 *$omp parallel private(ix)
   6       ix = 0
   7 *$omp do
   8       do i=1,ndfl
   9          ix = ix + 1
  10          if (ix.gt.5) go to 9000 ! { dg-error "invalid (exit|branch)" }
  11       enddo
  12 *$omp end do
  13 *$omp end parallel
  14
  15 9000  continue
  16       end