1! RUN: %S/test_errors.sh %s %t %flang -fopenmp 2! REQUIRES: shell 3 4! 2.15.3 Data-Sharing Attribute Clauses 5! A list item that specifies a given variable may not appear in more than 6! one clause on the same directive, except that a variable may be specified 7! in both firstprivate and lastprivate clauses. 8 9 common /c/ a, b 10 integer a(3), b 11 12 A = 1 13 B = 2 14 !ERROR: 'c' appears in more than one data-sharing clause on the same OpenMP directive 15 !$omp parallel shared(/c/,c) private(/c/) 16 a(1:2) = 3 17 B = 4 18 !$omp end parallel 19 print *, a, b, c 20end 21