flang/test/Parser/OpenMP/tile-size.f90

   1 ! RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=51 %s | FileCheck --ignore-case %s
   2 ! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=51 %s | FileCheck --check-prefix="PARSE-TREE" %s
   3
   4 subroutine openmp_tiles(x)
   5
   6   integer, intent(inout)::x
   7
   8 !CHECK: !$omp tile sizes
   9 !$omp  tile sizes(2)
  10 !CHECK: do
  11   do x = 1, 100
  12         call F1()
  13 !CHECK: end do
  14   end do
  15 !CHECK: !$omp end tile
  16 !$omp end tile
  17
  18
  19 !PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
  20 !PARSE-TREE: OmpBeginLoopDirective
  21 !PARSE-TREE: OmpLoopDirective -> llvm::omp::Directive = tile
  22 !PARSE-TREE: OmpClauseList -> OmpClause -> Sizes -> Scalar -> Integer -> Expr = '2_4'
  23 END subroutine openmp_tiles