1! { dg-do compile }
2
3subroutine foo (x)
4  integer, pointer, intent (in) :: x
5  integer :: i
6!$omp parallel private (x)		! { dg-error "INTENT.IN. POINTER" }
7!$omp end parallel
8!$omp parallel do lastprivate (x)	! { dg-error "INTENT.IN. POINTER" }
9  do i = 1, 10
10  end do
11!$omp simd linear (x)			! { dg-error "INTENT.IN. POINTER" }
12  do i = 1, 10
13  end do
14!$omp single
15!$omp end single copyprivate (x)        ! { dg-error "INTENT.IN. POINTER" }
16end
17