re PR fortran/31561 (FAIL: gfortran.dg/vect/vect-4.f90)

	PR fortran/31561
	* gfortran.dg/vect/vect-4.f90: xfail on vect_no_align targets.

From-SVN: r123817

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index eba3c95991f1817d5bb983db57bb1c07efecef9f..96168d148b7fadd4b08b1c7543f0414ffddfb756 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-14  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR fortran/31561
+       * gfortran.dg/vect/vect-4.f90: xfail on vect_no_align targets.
+
 2007-04-14 Paul Thomas <pault@gcc.gnu.org>
 
        PR fortran/29507

diff --git a/gcc/testsuite/gfortran.dg/vect/vect-4.f90 b/gcc/testsuite/gfortran.dg/vect/vect-4.f90
index 74f4e97678e8d2800e85291fb1461ee36ec25a19..22ab0d71bb8a978144063c1c55da8f468f87934a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/vect/vect-4.f90
+++ b/gcc/testsuite/gfortran.dg/vect/vect-4.f90
@@ -10,7 +10,7 @@ Y = Y + A * X
 END
 
 ! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" } } 
-! { dg-final { scan-tree-dump-times "Alignment of access forced using peeling" 1 "vect" } }
-! { dg-final { scan-tree-dump-times "Vectorizing an unaligned access" 1 "vect" } }
+! { dg-final { scan-tree-dump-times "Alignment of access forced using peeling" 1 "vect" { xfail vect_no_align } } }
+! { dg-final { scan-tree-dump-times "Vectorizing an unaligned access" 1 "vect" { xfail vect_no_align } } }
 ! { dg-final { scan-tree-dump-times "accesses have the same alignment." 1 "vect" } }
 ! { dg-final { cleanup-tree-dump "vect" } }