40 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s2!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s3 4subroutine f5 integer :: i, x6 do 100 i = 1, 107 !$omp atomic write8 100 x = i9end10 11!UNPARSE: SUBROUTINE f12!UNPARSE: INTEGER i, x13!UNPARSE: DO i=1_4,10_414!UNPARSE: !$OMP ATOMIC WRITE15!UNPARSE: 100 x=i16!UNPARSE: END DO17!UNPARSE: END SUBROUTINE18 19!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> DoConstruct20!PARSE-TREE: | NonLabelDoStmt21!PARSE-TREE: | | LoopControl -> LoopBounds22!PARSE-TREE: | | | Scalar -> Name = 'i'23!PARSE-TREE: | | | Scalar -> Expr = '1_4'24!PARSE-TREE: | | | | LiteralConstant -> IntLiteralConstant = '1'25!PARSE-TREE: | | | Scalar -> Expr = '10_4'26!PARSE-TREE: | | | | LiteralConstant -> IntLiteralConstant = '10'27!PARSE-TREE: | Block28!PARSE-TREE: | | ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPAtomicConstruct29!PARSE-TREE: | | | OmpBeginDirective30!PARSE-TREE: | | | | OmpDirectiveName -> llvm::omp::Directive = atomic31!PARSE-TREE: | | | | OmpClauseList -> OmpClause -> Write32!PARSE-TREE: | | | | Flags = {}33!PARSE-TREE: | | | Block34!PARSE-TREE: | | | | ExecutionPartConstruct -> ExecutableConstruct -> ActionStmt -> AssignmentStmt = 'x=i'35!PARSE-TREE: | | | | | Variable = 'x'36!PARSE-TREE: | | | | | | Designator -> DataRef -> Name = 'x'37!PARSE-TREE: | | | | | Expr = 'i'38!PARSE-TREE: | | | | | | Designator -> DataRef -> Name = 'i'39!PARSE-TREE: | EndDoStmt ->40