flang/test/Parser/omp-unroll-full.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_parse_unroll(x)
   5
   6   integer, intent(inout)::x
   7
   8 !CHECK: !$omp unroll full
   9 !$omp  unroll full
  10 !CHECK: do
  11   do x = 1, 100
  12         call F1()
  13 !CHECK: end do
  14   end do
  15 !CHECK: !$omp end unroll
  16 !$omp end unroll
  17
  18 !PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
  19 !PARSE-TREE: OmpBeginLoopDirective
  20 !PARSE-TREE: OmpLoopDirective -> llvm::omp::Directive = unroll
  21 !PARSE-TREE: OmpClauseList -> OmpClause -> Full
  22 END subroutine openmp_parse_unroll