1! { dg-do compile }
2! { dg-options "-O1 -ftree-slp-vectorize -fwrapv" }
3! { dg-additional-options "-march=armv8-a+sve" { target aarch64-*-* } }
4
5subroutine 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
25end subroutine sprpl5
26