1! { dg-do compile } 2! { dg-options "-Warray-temporaries" } 3 4subroutine 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 11end subroutine t1 12