25 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=51 %s | FileCheck --ignore-case %s2! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=51 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4program omp_scope5 integer i6 i = 107 8!CHECK: !$OMP SCOPE PRIVATE(i)9!CHECK: !$OMP END SCOPE10 11!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OmpBlockConstruct12!PARSE-TREE: OmpBeginDirective13!PARSE-TREE: OmpDirectiveName -> llvm::omp::Directive = scope14!PARSE-TREE: OmpClauseList -> OmpClause -> Private -> OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'i'15!PARSE-TREE: Block16!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> ActionStmt -> PrintStmt17!PARSE-TREE: OmpEndDirective18!PARSE-TREE: OmpDirectiveName -> llvm::omp::Directive = scope19!PARSE-TREE: OmpClauseList -> OmpClause -> Nowait20 21 !$omp scope private(i)22 print *, "omp scope", i23 !$omp end scope nowait24end program omp_scope25