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