32 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=50 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=50 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4subroutine f015 continue6 !$omp metadirective &7 !$omp & when(user={condition(.true.)}: nothing) &8 !$omp & default(nothing)9end10 11!UNPARSE: SUBROUTINE f0112!UNPARSE: CONTINUE13!UNPARSE: !$OMP METADIRECTIVE WHEN(USER={CONDITION(.true._4)}: NOTHING) DEFAULT(NOTHING)14!UNPARSE: END SUBROUTINE15 16!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OmpMetadirectiveDirective17!PARSE-TREE: | OmpClauseList -> OmpClause -> When -> OmpWhenClause18!PARSE-TREE: | | Modifier -> OmpContextSelectorSpecification -> OmpTraitSetSelector19!PARSE-TREE: | | | OmpTraitSetSelectorName -> Value = User20!PARSE-TREE: | | | OmpTraitSelector21!PARSE-TREE: | | | | OmpTraitSelectorName -> Value = Condition22!PARSE-TREE: | | | | Properties23!PARSE-TREE: | | | | | OmpTraitProperty -> Scalar -> Expr = '.true._4'24!PARSE-TREE: | | | | | | LiteralConstant -> LogicalLiteralConstant25!PARSE-TREE: | | | | | | | bool = 'true'26!PARSE-TREE: | | OmpDirectiveSpecification27!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = nothing28!PARSE-TREE: | | | OmpClauseList ->29!PARSE-TREE: | OmpClause -> Default -> OmpDefaultClause -> OmpDirectiveSpecification30!PARSE-TREE: | | OmpDirectiveName -> llvm::omp::Directive = nothing31!PARSE-TREE: | | OmpClauseList ->32