1! { dg-do run }
2! { dg-options "-O2 -fmodulo-sched" }
3! This testcase related to INC instruction which is
4! currently not supported in SMS.
5program main
6  integer (kind = 8) :: i, l8, u8, step8
7  integer (kind = 4) :: l4, step4
8  integer (kind = 8), parameter :: big = 10000000000_8
9
10  u8 = big * 40 + 200
11  l4 = 200
12  step8 = -big
13  call test ((/ (i, i = u8, l4, step8) /), u8, l4 + 0_8, step8)
14contains
15  subroutine test (a, l, u, step)
16    integer (kind = 8), dimension (:), intent (in) :: a
17    integer (kind = 8), intent (in) :: l, u, step
18    integer (kind = 8) :: i
19    integer :: j
20
21    j = 1
22    do i = l, u, step
23      if (a (j) .ne. i) call abort
24      j = j + 1
25    end do
26    if (size (a, 1) .ne. j - 1) call abort
27  end subroutine test
28end program main
29
30
31