39 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=60 %s | FileCheck --ignore-case %s2! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=60 %s | FileCheck --check-prefix="PARSE-TREE" %s3 4subroutine openmp_fuse(x)5 6 integer, intent(inout)::x7 8!CHECK: !$omp fuse looprange9!$omp fuse looprange(1,2)10!CHECK: do11 do x = 1, 10012 call F1()13!CHECK: end do14 end do15!CHECK: do16 do x = 1, 10017 call F1()18!CHECK: end do19 end do20!CHECK: do21 do x = 1, 10022 call F1()23!CHECK: end do24 end do25!CHECK: !$omp end fuse26!$omp end fuse27 28!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct29!PARSE-TREE: OmpBeginLoopDirective30!PARSE-TREE: OmpDirectiveName -> llvm::omp::Directive = fuse31!PARSE-TREE: OmpClauseList -> OmpClause -> Looprange -> OmpLoopRangeClause32!PARSE-TREE: Scalar -> Integer -> Constant -> Expr = '1_4'33!PARSE-TREE: LiteralConstant -> IntLiteralConstant = '1'34!PARSE-TREE: Scalar -> Integer -> Constant -> Expr = '2_4'35!PARSE-TREE: LiteralConstant -> IntLiteralConstant = '2'36 37END subroutine openmp_fuse38 39