29 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 4subroutine openmp_tiles(x)5 6 integer, intent(inout)::x7 8!CHECK: !$omp tile sizes(2_4)9!$omp tile sizes(2)10!CHECK: do11 do x = 1, 10012 call F1()13!CHECK: end do14 end do15!CHECK: !$omp end tile16!$omp end tile17 18!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct19!PARSE-TREE: OmpBeginLoopDirective20!PARSE-TREE: OmpClauseList -> OmpClause -> Sizes -> Scalar -> Integer -> Expr = '2_4'21!PARSE-TREE: LiteralConstant -> IntLiteralConstant = '2'22!PARSE-TREE: Flags = {}23!PARSE-TREE: DoConstruct24!PARSE-TREE: EndDoStmt25!PARSE-TREE: OmpEndLoopDirective26!PARSE-TREE: OmpDirectiveName -> llvm::omp::Directive = tile27 28END subroutine openmp_tiles29