flang/test/Parser/omp-tile.f90

   1 ! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck --ignore-case %s
   2 ! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s
   3
   4 subroutine openmp_tiles(x)
   5
   6   integer, intent(inout)::x
   7
   8 !CHECK: !$omp tile
   9 !$omp  tile
  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 !PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
  19 !PARSE-TREE: OmpBeginLoopDirective
  20 !PARSE-TREE: OmpLoopDirective -> llvm::omp::Directive = tile
  21
  22 END subroutine openmp_tiles
  23