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