gcc/testsuite/gfortran.dg/dependency_31.f90

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