xref: /llvm-project/flang/test/Semantics/OpenMP/requires04.f90 (revision 00ab44ee66dbcf0d32819dbc6e4eefd1b7c48dfa)
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52
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 device_type=nohost|any.
6
7subroutine f
8  integer, save :: x
9  !WARNING: The usage of TO clause on DECLARE TARGET directive has been deprecated. Use ENTER clause instead.
10  !$omp declare target to(x) device_type(nohost)
11  !$omp declare target enter(x) device_type(nohost)
12end subroutine f
13
14subroutine 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
23end subroutine g
24