flang/test/Semantics/OpenACC/acc-resolve01.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenacc
   2
   3 ! Data-Mapping Attribute Clauses
   4 ! 2.15.14 default Clause
   5
   6 subroutine default_none()
   7   integer a(3)
   8
   9   A = 1
  10   B = 2
  11   !$acc parallel default(none) private(c)
  12   !ERROR: The DEFAULT(NONE) clause requires that 'a' must be listed in a data-mapping clause
  13   A(1:2) = 3
  14   !ERROR: The DEFAULT(NONE) clause requires that 'b' must be listed in a data-mapping clause
  15   B = 4
  16   C = 5
  17   !$acc end parallel
  18 end subroutine default_none
  19
  20 program mm
  21   call default_none()
  22 end