4 integer, pointer, intent (in
) :: x
6 !$omp parallel private (x) ! { dg-error "INTENT.IN. POINTER" }
8 !$omp parallel do lastprivate (x) ! { dg-error "INTENT.IN. POINTER" }
11 !$omp simd linear (x) ! { dg-error "INTENT.IN. POINTER" }
14 !$omp single ! { dg-error "INTENT.IN. POINTER" }
15 !$omp end single copyprivate (x)