gcc/testsuite/gfortran.dg/sms-1.f90

   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.
   5 program 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)
  14 contains
  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) STOP 1
  24       j = j + 1
  25     end do
  26     if (size (a, 1) .ne. j - 1) STOP 2
  27   end subroutine test
  28 end program main
  29
  30