20 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3! 2.15.3 Data-Sharing Attribute Clauses4! A list item that specifies a given variable may not appear in more than5! one clause on the same directive, except that a variable may be specified6! in both firstprivate and lastprivate clauses.7 8 common /c/ a, b9 integer a(3), b10 11 A = 112 B = 213 !ERROR: 'c' appears in more than one data-sharing clause on the same OpenMP directive14 !$omp parallel shared(/c/,c) private(/c/)15 a(1:2) = 316 B = 417 !$omp end parallel18 print *, a, b, c19end20