gcc/testsuite/gfortran.dg/gomp/loop-transforms/unroll-9.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 -fopt-info-omp-optimized-missed" }
! { dg-additional-options "-fdump-tree-original" }

subroutine test1
  implicit none
  integer :: i
  !$omp unroll full ! { dg-optimized {removed useless 'omp unroll auto' directives preceding 'omp unroll full'} }
  !$omp unroll partial(3)
  !$omp unroll partial(2)
  !$omp unroll partial(1)
  do i = 1,100
     call dummy(i)
  end do
end subroutine test1

! { dg-final { scan-tree-dump {#pragma omp loop_transform unroll_full unroll_partial\(3\) unroll_partial\(2\) unroll_partial\(1\)} "original" } }
! { dg-final { scan-tree-dump-not "#pragma omp unroll" "omp_transform_loops" } }
! { dg-final { scan-tree-dump-times "dummy" 100 "omp_transform_loops" } }