xref: /llvm-project/flang/test/Semantics/OpenMP/requires06.f90 (revision 502bea25bdc07d1811b8bfea1c2e6bfa8617f72f)
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 declare target with extended list.
6
7subroutine f
8  !$omp declare target (f)
9end subroutine f
10
11subroutine g
12  !ERROR: REQUIRES directive with 'DYNAMIC_ALLOCATORS' clause found lexically after device construct
13  !$omp requires dynamic_allocators
14  !ERROR: REQUIRES directive with 'REVERSE_OFFLOAD' clause found lexically after device construct
15  !$omp requires reverse_offload
16  !ERROR: REQUIRES directive with 'UNIFIED_ADDRESS' clause found lexically after device construct
17  !$omp requires unified_address
18  !ERROR: REQUIRES directive with 'UNIFIED_SHARED_MEMORY' clause found lexically after device construct
19  !$omp requires unified_shared_memory
20end subroutine g
21