flang/test/Semantics/OpenMP/omp-resolve05.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2
   3 ! 2.15.3 Data-Sharing Attribute Clauses
   4 ! 2.15.3.1 default Clause
   5
   6 subroutine default_none()
   7   integer a(3)
   8   integer, parameter :: D=10
   9   A = 1
  10   B = 2
  11   !$omp parallel default(none) private(c)
  12   !ERROR: The DEFAULT(NONE) clause requires that 'a' must be listed in a data-sharing attribute clause
  13   A(1:2) = 3
  14   !ERROR: The DEFAULT(NONE) clause requires that 'b' must be listed in a data-sharing attribute clause
  15   B = 4
  16   C = 5 + D
  17   !$omp end parallel
  18 end subroutine default_none
  19
  20 program mm
  21   call default_none()
  22   !TODO: private, firstprivate, shared
  23 end