gcc/testsuite/gfortran.dg/pr101158.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O1 -ftree-slp-vectorize -fwrapv" }
   3 ! { dg-additional-options "-march=armv8-a+sve" { target aarch64-*-* } }
   4
   5 subroutine sprpl5 (left)
   6   implicit none
   7
   8   integer :: left
   9   integer :: avail1, avail2, delx1, delx2, i2, ic
  10
  11   ic = left
  12   delx1 = ic / 2
  13   delx2 = delx1 + 1
  14   i2 = ic + delx2
  15   avail1 = i2
  16   avail2 = 1
  17
  18   do delx1 = 1, 2
  19      ic = left + nint (real (left) / 2)
  20      if (ic .ge. avail1) avail1 = ic + 1
  21
  22      i2 = ic + delx2
  23      if (i2 .le. avail2) avail2 = i2 + 1
  24   end do
  25 end subroutine sprpl5