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