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
159000  continue
16      end
17