Seem to have missed this one. Committed as obvious.
Richard. 2012-05-21 Richard Guenther <rguent...@suse.de> * gfortran.dg/pr46519-2.f90: Adjust to avoid memset transform. Index: gcc/testsuite/gfortran.dg/pr46519-2.f90 =================================================================== --- gcc/testsuite/gfortran.dg/pr46519-2.f90 (revision 187706) +++ gcc/testsuite/gfortran.dg/pr46519-2.f90 (working copy) @@ -10,7 +10,7 @@ REAL :: fluxout INTEGER :: min_q, max_q, var do k=kts,kte - praci(k)=0.0 + praci(k)=1.0 enddo min_q=kte max_q=kts-1