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