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