flang/test/Semantics/OpenMP/requires08.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! OpenMP Version 5.0
   3 ! 2.4 Requires directive
   4 ! Target-related clauses in 'requires' directives must come strictly before any
   5 ! device constructs, such as target teams distribute parallel do loops.
   6
   7 subroutine f
   8   !$omp target teams distribute parallel do
   9   do i=1, 10
  10   end do
  11   !$omp end target teams distribute parallel do
  12 end subroutine f
  13
  14 subroutine g
  15   !ERROR: REQUIRES directive with 'DYNAMIC_ALLOCATORS' clause found lexically after device construct
  16   !$omp requires dynamic_allocators
  17   !ERROR: REQUIRES directive with 'REVERSE_OFFLOAD' clause found lexically after device construct
  18   !$omp requires reverse_offload
  19   !ERROR: REQUIRES directive with 'UNIFIED_ADDRESS' clause found lexically after device construct
  20   !$omp requires unified_address
  21   !ERROR: REQUIRES directive with 'UNIFIED_SHARED_MEMORY' clause found lexically after device construct
  22   !$omp requires unified_shared_memory
  23 end subroutine g