24 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.15.4.2 copyprivate Clause4! Pointers with the INTENT(IN) attribute may not appear in a copyprivate clause.5 6subroutine omp_copyprivate(p)7 integer :: a(10), b(10), c(10)8 integer, pointer, intent(in) :: p9 10 a = 1011 b = 2012 13 !$omp parallel14 !$omp single15 c = a + b + p16 !ERROR: COPYPRIVATE variable 'p' is not PRIVATE or THREADPRIVATE in outer context17 !ERROR: Pointer 'p' with the INTENT(IN) attribute may not appear in a COPYPRIVATE clause18 !$omp end single copyprivate(p)19 !$omp end parallel20 21 print *, c22 23end subroutine omp_copyprivate24