flang/test/Semantics/omp-resolve04.f90

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