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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

      subroutine xrotate(nerr)

      common /dfm/ndfl

*$omp parallel private(ix)
      ix = 0
*$omp do
      do i=1,ndfl
         ix = ix + 1
	 if (ix.gt.5) go to 9000 ! { dg-error "invalid (exit|branch)" }
      enddo
*$omp end do
*$omp end parallel

9000  continue
      end