32 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_do_tiles(x)5 6 integer, intent(inout)::x7 8 9!CHECK: !$omp do10!CHECK: !$omp tile sizes11!$omp do12!$omp tile sizes(2)13!CHECK: do14 do x = 1, 10015 call F1()16!CHECK: end do17 end do18!CHECK: !$omp end tile19!$omp end tile20!$omp end do21 22!PARSE-TREE:| | ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPLoopConstruct23!PARSE-TREE:| | | OmpBeginLoopDirective24!PARSE-TREE:| | | Block25!PARSE-TREE:| | | | ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPLoopConstruct26!PARSE-TREE:| | | | | OmpBeginLoopDirective27!PARSE-TREE:| | | | | | OmpDirectiveName -> llvm::omp::Directive = tile28!PARSE-TREE:| | | | | | OmpClauseList -> OmpClause -> Sizes -> Scalar -> Integer -> Expr = '2_4'29!PARSE-TREE:| | | | | Block30!PARSE-TREE:| | | | | | ExecutionPartConstruct -> ExecutableConstruct -> DoConstruct31END subroutine openmp_do_tiles32