57 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=60 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=60 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4!$omp requires atomic_default_mem_order(seq_cst)5 6!UNPARSE: !$OMP REQUIRES ATOMIC_DEFAULT_MEM_ORDER(SEQ_CST)7 8!PARSE-TREE: OpenMPDeclarativeConstruct -> OpenMPRequiresConstruct -> OmpDirectiveSpecification9!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = requires10!PARSE-TREE: | OmpClauseList -> OmpClause -> AtomicDefaultMemOrder -> OmpAtomicDefaultMemOrderClause -> OmpMemoryOrderType = Seq_Cst11!PARSE-TREE: | Flags = {}12 13!$omp requires unified_shared_memory unified_address14 15!UNPARSE: !$OMP REQUIRES UNIFIED_SHARED_MEMORY UNIFIED_ADDRESS16 17!PARSE-TREE: OpenMPDeclarativeConstruct -> OpenMPRequiresConstruct -> OmpDirectiveSpecification18!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = requires19!PARSE-TREE: | OmpClauseList -> OmpClause -> UnifiedSharedMemory20!PARSE-TREE: | OmpClause -> UnifiedAddress21!PARSE-TREE: | Flags = {}22 23!$omp requires dynamic_allocators reverse_offload24 25!UNPARSE: !$OMP REQUIRES DYNAMIC_ALLOCATORS REVERSE_OFFLOAD26 27!PARSE-TREE: OpenMPDeclarativeConstruct -> OpenMPRequiresConstruct -> OmpDirectiveSpecification28!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = requires29!PARSE-TREE: | OmpClauseList -> OmpClause -> DynamicAllocators30!PARSE-TREE: | OmpClause -> ReverseOffload31!PARSE-TREE: | Flags = {}32 33!$omp requires self_maps(.true.) unified_address(.false.)34 35!UNPARSE: !$OMP REQUIRES SELF_MAPS(.true._4) UNIFIED_ADDRESS(.false._4)36 37!PARSE-TREE: OpenMPDeclarativeConstruct -> OpenMPRequiresConstruct -> OmpDirectiveSpecification38!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = requires39!PARSE-TREE: | OmpClauseList -> OmpClause -> SelfMaps -> OmpSelfMapsClause -> Scalar -> Logical -> Constant -> Expr = '.true._4'40!PARSE-TREE: | | LiteralConstant -> LogicalLiteralConstant41!PARSE-TREE: | | | bool = 'true'42!PARSE-TREE: | OmpClause -> UnifiedAddress -> OmpUnifiedAddressClause -> Scalar -> Logical -> Constant -> Expr = '.false._4'43!PARSE-TREE: | | LiteralConstant -> LogicalLiteralConstant44!PARSE-TREE: | | | bool = 'false'45!PARSE-TREE: | Flags = {}46 47!$omp requires device_safesync48 49!UNPARSE: !$OMP REQUIRES DEVICE_SAFESYNC50 51!PARSE-TREE: OpenMPDeclarativeConstruct -> OpenMPRequiresConstruct -> OmpDirectiveSpecification52!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = requires53!PARSE-TREE: | OmpClauseList -> OmpClause -> DeviceSafesync54!PARSE-TREE: | Flags = {}55 56end57