| ! RUN: %python %S/test_errors.py %s %flang -fopenmp |
| |
| ! 2.15.3 Data-Sharing Attribute Clauses |
| ! A list item that specifies a given variable may not appear in more than |
| ! one clause on the same directive, except that a variable may be specified |
| ! in both firstprivate and lastprivate clauses. |
| |
| common /c/ a, b |
| integer a(3), b |
| |
| A = 1 |
| B = 2 |
| !ERROR: 'c' appears in more than one data-sharing clause on the same OpenMP directive |
| !$omp parallel shared(/c/,c) private(/c/) |
| a(1:2) = 3 |
| B = 4 |
| !$omp end parallel |
| print *, a, b, c |
| end |