PR middle-end/46629

	* gfortran.dg/lto/pr46629_0.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167110 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cc9607e..9bbbdcb 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