gcc/testsuite/gfortran.dg/gomp/loop-transforms/unroll-4.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

! { dg-additional-options "-fdump-tree-omp_transform_loops" }
! { dg-additional-options "-fdump-tree-original" }

subroutine test1
  implicit none
  integer :: i
  !$omp unroll
  do i = 1,100
     call dummy(i)
  end do
end subroutine test1

! Loop should not be unrolled, but the internal representation should be lowered

! { dg-final { scan-tree-dump "#pragma omp loop_transform" "original" } }
! { dg-final { scan-tree-dump-not "#pragma omp" "omp_transform_loops" } }
! { dg-final { scan-tree-dump-times "dummy" 1 "omp_transform_loops" } }
! { dg-final { scan-tree-dump-times {if \(i\.[0-9]+ < .+?.+goto.+else goto.*?$} 1 "omp_transform_loops" } }