49 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 f005 integer :: i, j6 do 100 i = 1,107!$omp do8 do 100 j = 1,109 100 continue10end11 12!UNPARSE: SUBROUTINE f0013!UNPARSE: INTEGER i, j14!UNPARSE: DO i=1_4,10_415!UNPARSE: !$OMP DO16!UNPARSE: DO j=1_4,10_417!UNPARSE: 100 CONTINUE18!UNPARSE: END DO19!UNPARSE: END DO20!UNPARSE: END SUBROUTINE21 22!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> DoConstruct23!PARSE-TREE: | NonLabelDoStmt24!PARSE-TREE: | | LoopControl -> LoopBounds25!PARSE-TREE: | | | Scalar -> Name = 'i'26!PARSE-TREE: | | | Scalar -> Expr = '1_4'27!PARSE-TREE: | | | | LiteralConstant -> IntLiteralConstant = '1'28!PARSE-TREE: | | | Scalar -> Expr = '10_4'29!PARSE-TREE: | | | | LiteralConstant -> IntLiteralConstant = '10'30!PARSE-TREE: | Block31!PARSE-TREE: | | ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPLoopConstruct32!PARSE-TREE: | | | OmpBeginLoopDirective33!PARSE-TREE: | | | | OmpDirectiveName -> llvm::omp::Directive = do34!PARSE-TREE: | | | | OmpClauseList ->35!PARSE-TREE: | | | | Flags = {}36!PARSE-TREE: | | | Block37!PARSE-TREE: | | | | ExecutionPartConstruct -> ExecutableConstruct -> DoConstruct38!PARSE-TREE: | | | | | NonLabelDoStmt39!PARSE-TREE: | | | | | | LoopControl -> LoopBounds40!PARSE-TREE: | | | | | | | Scalar -> Name = 'j'41!PARSE-TREE: | | | | | | | Scalar -> Expr = '1_4'42!PARSE-TREE: | | | | | | | | LiteralConstant -> IntLiteralConstant = '1'43!PARSE-TREE: | | | | | | | Scalar -> Expr = '10_4'44!PARSE-TREE: | | | | | | | | LiteralConstant -> IntLiteralConstant = '10'45!PARSE-TREE: | | | | | Block46!PARSE-TREE: | | | | | | ExecutionPartConstruct -> ExecutableConstruct -> ActionStmt -> ContinueStmt47!PARSE-TREE: | | | | | EndDoStmt ->48!PARSE-TREE: | EndDoStmt ->49