21 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.15.3.3 private Clause4! Pointers with the INTENT(IN) attribute may not appear in a private clause.5 6subroutine omp_private(p)7 integer :: a(10), b(10), c(10)8 integer, pointer, intent(in) :: p9 10 a = 1011 b = 2012 13 !ERROR: Pointer 'p' with the INTENT(IN) attribute may not appear in a PRIVATE clause14 !$omp parallel private(p)15 c = a + b + p16 !$omp end parallel17 18 print *, c19 20end subroutine omp_private21