pr46519-2.f90: Adjust to avoid memset transform.

2012-05-21  Richard Guenther  <rguenther@suse.de>

	* gfortran.dg/pr46519-2.f90: Adjust to avoid memset transform.

From-SVN: r187708

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 33aaeb010610ae0fe9c6012699515038493c6015..21bc4660e327ad43b0462e7fff3e380df68880b0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2012-05-21  Richard Guenther  <rguenther@suse.de>
+
+       * gfortran.dg/pr46519-2.f90: Adjust to avoid memset transform.
+
 2012-05-21  Richard Guenther  <rguenther@suse.de>
 
        * gcc.dg/torture/ldist-1.c: New testcase.

diff --git a/gcc/testsuite/gfortran.dg/pr46519-2.f90 b/gcc/testsuite/gfortran.dg/pr46519-2.f90
index b4d6980550561d4888dee5e54a8617c309418b55..be810cca616d110a1119e1495e21100b1cdbf613 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr46519-2.f90
+++ b/gcc/testsuite/gfortran.dg/pr46519-2.f90
@@ -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