[testcase] Fix up maybe_cleanup_end_of_block (PR middle-end/46629)

[Jakub Jelinek <jakub@redhat.com>]

On Wed, Nov 24, 2010 at 09:59:34AM +0100, Jakub Jelinek wrote:
> On Tue, Nov 23, 2010 at 04:51:35PM -0800, H.J. Lu wrote:
> Committed as obvious, will deal with the testcase later.

And here is a testcase for that, not 100% sure if I got the dg-lto* stuff
right, but it works (and fails with unfixed gcc).  Ok for trunk?

2010-11-24  Jakub Jelinek  <jakub@redhat.com>

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

--- gcc/testsuite/gfortran.dg/lto/pr46629_0.f90.jj	2010-11-24 10:42:09.285372916 +0100
+++ gcc/testsuite/gfortran.dg/lto/pr46629_0.f90	2010-11-24 10:57:53.225261153 +0100
@@ -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


	Jakub