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