diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e7877fb7d25..14904a89a71 100644
--- 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 29fafdb7f2e..e009f7105e1 100644
--- 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