28 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.15.4.2 copyprivate Clause4! A list item that appears in a copyprivate clause may not appear in a5! private or firstprivate clause on the single construct.6 7program omp_copyprivate8 integer :: a(10), b(10), k9 10 k = 1011 a = 1012 b = a * 1013 14 !$omp parallel15 !$omp single private(k)16 a = a + k17 !ERROR: COPYPRIVATE variable 'k' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct18 !$omp end single copyprivate(k)19 !$omp single firstprivate(k)20 b = a - k21 !ERROR: COPYPRIVATE variable 'k' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct22 !$omp end single copyprivate(k)23 !$omp end parallel24 25 print *, a, b26 27end program omp_copyprivate28