47 lines · plain
1! RUN: %flang_fc1 -fopenmp -fopenmp-version=51 %s -fdebug-unparse | FileCheck --check-prefix=UNPARSE %s2! RUN: %flang_fc1 -fopenmp -fopenmp-version=51 %s -fdebug-dump-parse-tree | FileCheck --check-prefix=PTREE %s3 4subroutine openmp_parse_unroll_heuristic5 integer i6 7 !$omp unroll8 do i = 1, 1009 call func(i)10 end do11 !$omp end unroll12END subroutine openmp_parse_unroll_heuristic13 14 15!UNPARSE: !$OMP UNROLL16!UNPARSE-NEXT: DO i=1_4,100_417!UNPARSE-NEXT: CALL func(i)18!UNPARSE-NEXT: END DO19!UNPARSE-NEXT: !$OMP END UNROLL20 21!PTREE: OpenMPConstruct -> OpenMPLoopConstruct22!PTREE-NEXT: | OmpBeginLoopDirective23!PTREE-NEXT: | | OmpDirectiveName -> llvm::omp::Directive = unroll24!PTREE-NEXT: | | OmpClauseList ->25!PTREE-NEXT: | | Flags = {}26!PTREE-NEXT: | Block27!PTREE-NEXT: | | ExecutionPartConstruct -> ExecutableConstruct -> DoConstruct28!PTREE-NEXT: | | | NonLabelDoStmt29!PTREE-NEXT: | | | | LoopControl -> LoopBounds30!PTREE-NEXT: | | | | | Scalar -> Name = 'i'31!PTREE-NEXT: | | | | | Scalar -> Expr = '1_4'32!PTREE-NEXT: | | | | | | LiteralConstant -> IntLiteralConstant = '1'33!PTREE-NEXT: | | | | | Scalar -> Expr = '100_4'34!PTREE-NEXT: | | | | | | LiteralConstant -> IntLiteralConstant = '100'35!PTREE-NEXT: | | | Block36!PTREE-NEXT: | | | | ExecutionPartConstruct -> ExecutableConstruct -> ActionStmt -> CallStmt = 'CALL func(i)'37!PTREE-NEXT: | | | | | | | Call38!PTREE-NEXT: | | | | | | ProcedureDesignator -> Name = 'func'39!PTREE-NEXT: | | | | | | ActualArgSpec40!PTREE-NEXT: | | | | | | | ActualArg -> Expr = 'i'41!PTREE-NEXT: | | | | | | | | Designator -> DataRef -> Name = 'i'42!PTREE-NEXT: | | | EndDoStmt ->43!PTREE-NEXT: | OmpEndLoopDirective44!PTREE-NEXT: | | OmpDirectiveName -> llvm::omp::Directive = unroll45!PTREE-NEXT: | | OmpClauseList ->46!PTREE-NEXT: | | Flags = {}47