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