flang/test/Lower/unroll.f90

   1 ! RUN: %flang_fc1 -emit-hlfir -o - %s | FileCheck %s
   2
   3 ! CHECK: #loop_unroll = #llvm.loop_unroll<disable = false, full = true>
   4 ! CHECK: #loop_annotation = #llvm.loop_annotation<unroll = #loop_unroll>
   5
   6 ! CHECK-LABEL: unroll_dir
   7 subroutine unroll_dir
   8   integer :: a(10)
   9   !dir$ unroll
  10   !CHECK: fir.do_loop {{.*}} attributes {loopAnnotation = #loop_annotation}
  11   do i=1,10
  12      a(i)=i
  13   end do
  14 end subroutine unroll_dir
  15
  16
  17 ! CHECK-LABEL: intermediate_directive
  18 subroutine intermediate_directive
  19   integer :: a(10)
  20   !dir$ unroll
  21   !dir$ unknown
  22   !CHECK: fir.do_loop {{.*}} attributes {loopAnnotation = #loop_annotation}
  23   do i=1,10
  24      a(i)=i
  25   end do
  26 end subroutine intermediate_directive
  27