sparc-ret.c: New file, test return corruption bug for ultrasparc.

	* gcc.dg/sparc-ret.c: New file, test return corruption bug for
	ultrasparc.

From-SVN: r47773

gcc/testsuite/ChangeLog

+2001-12-07  Stephane Carrez  <Stephane.Carrez@sun.com>
+
+	* gcc.dg/sparc-ret.c: New file, test return corruption bug for
+	ultrasparc.
+
 Fri Dec  7 06:29:03 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
 	* g++-old.deja/g++.robertl/eb101.C: Deleted.

gcc/testsuite/gcc.dg/sparc-ret.c

+/* Copyright (C) 2001  Free Software Foundation.
+
+   Making sure that Ultrasparc return instructions do not read
+   below the stack.  */
+
+/* { dg-do compile { target sparc*-*-* } } */
+/* { dg-options "-mcpu=ultrasparc -O -m32" } */
+
+
+int bar (int a, int b, int c, int d, int e, int f, int g, int h)
+{
+  int res;
+
+  toto (&res);
+  return h;
+}
+/* { dg-final { scan-assembler "return\[ \t\]*%i7\\+8\n\[^\n\]*ld\[ \t\]*\\\[%sp\\+96\\\]" } } */
+
+int bar2 ()
+{
+  int res;
+
+  toto (&res);
+  return res;
+}
+/* { dg-final { scan-assembler "return\[ \t\]*%i7\\+8\n\[^\n\]*nop" } } */
+