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