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