gcc/testsuite/gfortran.dg/gomp/intentin1.f90

   1 ! { dg-do compile }
   2
   3 subroutine 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                            ! { dg-error "INTENT.IN. POINTER" }
  15 !$omp end single copyprivate (x)
  16 end