28 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -o - %s | FileCheck %s2 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_dir7subroutine unroll_dir8 integer :: a(10)9 !dir$ unroll10 !CHECK: fir.do_loop {{.*}} attributes {loopAnnotation = #loop_annotation}11 do i=1,1012 a(i)=i13 end do14end subroutine unroll_dir15 16 17! CHECK-LABEL: intermediate_directive18subroutine intermediate_directive19 integer :: a(10)20 !dir$ unroll21 !dir$ unknown22 !CHECK: fir.do_loop {{.*}} attributes {loopAnnotation = #loop_annotation}23 do i=1,1024 a(i)=i25 end do26end subroutine intermediate_directive27 28