blob: f37281bb871e7300f0ba1af8689974015f73b94d [file] [log] [blame]
! { dg-do run }
! { dg-options "-Warray-temporaries" }
! No temporary should be generated in this case.
program main
implicit none
integer :: i,n
integer :: a(10)
integer :: b(10)
do i=1,10
a(i) = i
b(i) = i
end do
n = 1
! Same result when assigning to a or b
b(n+1:10:4) = a(n+2:8:2)
a(n+1:10:4) = a(n+2:8:2)
if (any (a/=b)) STOP 1
end program main