Index: ChangeLog
===================================================================
--- ChangeLog	(revision 164281)
+++ ChangeLog	(working copy)
@@ -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
Index: gfortran.dg/vect/fast-math-pr38968.f90
===================================================================
--- gfortran.dg/vect/fast-math-pr38968.f90	(revision 164250)
+++ gfortran.dg/vect/fast-math-pr38968.f90	(working copy)
@@ -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