fast-math-pr38968.f90: Add common to prevent folding.

	* gfortran.dg/vect/fast-math-pr38968.f90: Add common to prevent
	folding.

From-SVN: r164282

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e7877fb7d251a3bde41d192696e87cfd27b880ca..14904a89a71c2aa6a659fad17c893de58e9d0f75 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-14  Jan Hubicka  <jh@suse.cz>
+
+       * gfortran.dg/vect/fast-math-pr38968.f90: Add common to prevent
+       folding.
+
 2010-09-14  Jakub Jelinek  <jakub@redhat.com>
 
        PR middle-end/45567

diff --git a/gcc/testsuite/gfortran.dg/vect/fast-math-pr38968.f90 b/gcc/testsuite/gfortran.dg/vect/fast-math-pr38968.f90
index 29fafdb7f2eaf11c2db8eec2eff201fc75256d16..e009f7105e15cdb9ee1895e7995e571280f7dfb2 100644 (file)
--- a/gcc/testsuite/gfortran.dg/vect/fast-math-pr38968.f90
+++ b/gcc/testsuite/gfortran.dg/vect/fast-math-pr38968.f90
@@ -10,6 +10,7 @@ program mymatmul
   complex(kp), dimension(n,n) :: a,b,c
   real :: t1, t2
   integer :: i, j, k
+  common // a,b,c
 
   do j = 1, n
      do k = 1, n