! { dg-do compile } | |
! { dg-options "-Warray-temporaries" } | |
! PR 45159 - make sure no temporary is created for this. | |
subroutine foo(a,n,i,j) | |
implicit none | |
integer, intent(in) :: i,j,n | |
real, dimension(20) :: a | |
a(1:10) = a(i:j) | |
a(20:n:-3) = a(n:i:-3) | |
end subroutine foo |