gcc/testsuite/gfortran.dg/dependency_29.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Warray-temporaries" }
   3
   4 subroutine t1(n1,n2, gfft, ufft)
   5   implicit none
   6   integer :: n1, n2, i
   7   real :: gfft(n1,n2), ufft(n2)
   8   DO i=1, n1
   9      gfft(i,:)=gfft(i,:)*ufft(i)
  10   END DO
  11 end subroutine t1