22 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=52 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=52 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4module m5 integer :: x, y6 7 !$omp declare target to(x, y)8end9 10!UNPARSE: MODULE m11!UNPARSE: INTEGER x, y12!UNPARSE: !$OMP DECLARE TARGET TO(x,y)13!UNPARSE: END MODULE14 15!PARSE-TREE: DeclarationConstruct -> SpecificationConstruct -> OpenMPDeclarativeConstruct -> OpenMPDeclareTargetConstruct -> OmpDirectiveSpecification16!PARSE-TREE: | OmpDirectiveName -> llvm::omp::Directive = declare target17!PARSE-TREE: | OmpClauseList -> OmpClause -> To -> OmpToClause18!PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'19!PARSE-TREE: | | OmpObject -> Designator -> DataRef -> Name = 'y'20!PARSE-TREE: | | bool = 'true'21!PARSE-TREE: | Flags = {}22