libgomp/testsuite/libgomp.fortran/unroll-3.f90

! Test lowering of the internal representation of "omp unroll" loops
! which are not unrolled.

! { dg-do run }

module test_functions
contains
  integer function compute_sum1 () result(sum)
    implicit none
    integer :: i

    sum = 0
    !$omp unroll
    do i = 0,50
      sum = sum + 1
    end do
  end function compute_sum1

  integer function compute_sum3 (step,n) result(sum)
    implicit none
    integer :: i, step, n

    sum = 0
    !$omp unroll
    do i = 0,n,step
      sum = sum + 1
    end do
  end function compute_sum3
end module test_functions

program test
  use test_functions
  implicit none

  integer :: result

  result = compute_sum1 ()
  if (result .ne. 51) then
    stop 1
  end if

  result = compute_sum3 (1, 100)
  if (result .ne. 101) then
    stop 2
  end if

  result = compute_sum3 (2, 100)
  if (result .ne. 51) then
    stop 3
  end if

  result = compute_sum3 (-2, -100)
  if (result .ne. 51) then
    stop 4
  end if
end program