re PR middle-end/46629 (Failed to build 200.sixtrack in SPEC CPU 2000)

	PR middle-end/46629
	* gfortran.dg/lto/pr46629_0.f90: New test.

From-SVN: r167110

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cc9607e8f9121c9395d62e4450ebe07799a7d885..9bbbdcb3a2e97508f6e9140f29ef00471a7c39d5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-11-24  Jakub Jelinek  <jakub@redhat.com>
+
+       PR middle-end/46629
+       * gfortran.dg/lto/pr46629_0.f90: New test.
+
 2010-11-24  Mingjie Xing  <mingjie.xing@gmail.com>
 
        * gcc.target/mips/loongson3a-muldiv-1.c: New test.

diff --git a/gcc/testsuite/gfortran.dg/lto/pr46629_0.f90 b/gcc/testsuite/gfortran.dg/lto/pr46629_0.f90
new file mode 100644 (file)
index 0000000..26f4898
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/lto/pr46629_0.f90
@@ -0,0 +1,15 @@
+! PR middle-end/64429
+! { dg-lto-do assemble }
+! { dg-lto-options {{ -O2 -flto -ftree-vectorize }} }
+! { dg-lto-options {{ -O2 -flto -ftree-vectorize -march=x86-64 }} { target i?86-*-* x86_64-*-* } }
+
+subroutine foo
+  character(len=6), save :: c
+  real, save :: d(0:100)
+  integer, save :: x, n, i
+  n = x
+  print *, c
+  do i = 2, n
+    d(i) = -d(i-1)
+  end do
+end