flang/test/Semantics/OpenMP/private01.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.15.3.3 private Clause
   4 ! Pointers with the INTENT(IN) attribute may not appear in a private clause.
   5
   6 subroutine omp_private(p)
   7   integer :: a(10), b(10), c(10)
   8   integer, pointer, intent(in) :: p
   9
  10   a = 10
  11   b = 20
  12
  13   !ERROR: Pointer 'p' with the INTENT(IN) attribute may not appear in a PRIVATE clause
  14   !$omp parallel private(p)
  15   c = a + b + p
  16   !$omp end parallel
  17
  18   print *, c
  19
  20 end subroutine omp_private