2 ! { dg-options "-O2 -fmodulo-sched" }
3 ! This testcase related to INC instruction which is
4 ! currently not supported in SMS.
6 integer (kind = 8) :: i, l8, u8, step8
7 integer (kind = 4) :: l4, step4
8 integer (kind = 8), parameter :: big = 10000000000_8
13 call test ((/ (i, i = u8, l4, step8) /), u8, l4 + 0_8, step8)
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
23 if (a (j) .ne. i) call abort
26 if (size (a, 1) .ne. j - 1) call abort