compat-common.h (DEBUG_FINI): New.

	* gcc.dg/compat/compat-common.h (DEBUG_FINI): New.
	* gcc.dg/compat/scalar-by-value-1_x.c: Use it.
	* gcc.dg/compat/scalar-by-value-2_x.c: Ditto.
	* gcc.dg/compat/scalar-by-value-3_x.c: Ditto.
	* gcc.dg/compat/scalar-by-value-4_x.c: Ditto.
	* gcc.dg/compat/scalar-return-1_x.c: Ditto.
	* gcc.dg/compat/scalar-return-2_x.c: Ditto.
	* gcc.dg/compat/scalar-return-3_x.c: Ditto.
	* gcc.dg/compat/scalar-return-4_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-10_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-11_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-12_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-13_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-14_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-15_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-16_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-17_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-18_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-2_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-3_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-4_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-5_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-6_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-7_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-8_x.c: Ditto.
	* gcc.dg/compat/struct-by-value-9_x.c: Ditto.
	* gcc.dg/compat/struct-return-10_x.c: Ditto.
	* gcc.dg/compat/struct-return-2_x.c: Ditto.
	* gcc.dg/compat/struct-return-3_x.c: Ditto.

From-SVN: r68898

gcc/testsuite/ChangeLog

+2003-07-03  Janis Johnson  <janis187@us.ibm.com>
+
+	* gcc.dg/compat/compat-common.h (DEBUG_FINI): New.
+	* gcc.dg/compat/scalar-by-value-1_x.c: Use it.
+	* gcc.dg/compat/scalar-by-value-2_x.c: Ditto.
+	* gcc.dg/compat/scalar-by-value-3_x.c: Ditto.
+	* gcc.dg/compat/scalar-by-value-4_x.c: Ditto.
+	* gcc.dg/compat/scalar-return-1_x.c: Ditto.
+	* gcc.dg/compat/scalar-return-2_x.c: Ditto.
+	* gcc.dg/compat/scalar-return-3_x.c: Ditto.
+	* gcc.dg/compat/scalar-return-4_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-10_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-11_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-12_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-13_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-14_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-15_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-16_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-17_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-18_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-2_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-3_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-4_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-5_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-6_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-7_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-8_x.c: Ditto.
+	* gcc.dg/compat/struct-by-value-9_x.c: Ditto.
+	* gcc.dg/compat/struct-return-10_x.c: Ditto.
+	* gcc.dg/compat/struct-return-2_x.c: Ditto.
+	* gcc.dg/compat/struct-return-3_x.c: Ditto.
+
 2003-07-03  Eric Botcazou  <ebotcazou@libertysurf.fr>
 
 	* gcc.dg/i386-call-1.c: New test.

gcc/testsuite/gcc.dg/compat/compat-common.h

@@ -12,6 +12,8 @@
 #define DEBUG_NL putc ('\n', stdout)
 #define DEBUG_FAIL putc ('F', stdout); fails++
 #define DEBUG_CHECK { DEBUG_FAIL; } else { DEBUG_DOT; }
+#define DEBUG_FINI if (fails) DEBUG_FPUTS ("failed\n"); \
+		   else DEBUG_FPUTS ("passed\n");
 #else
 #define DEBUG_INIT
 #define DEBUG_FPUTS(x)
@@ -19,6 +21,7 @@
 #define DEBUG_NL
 #define DEBUG_FAIL abort ()
 #define DEBUG_CHECK abort ();
+#define DEBUG_FINI
 #endif
 
 extern void abort (void);

gcc/testsuite/gcc.dg/compat/scalar-by-value-1_x.c

@@ -171,6 +171,8 @@ T(sll)
 T(d)
 T(ld)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/scalar-by-value-2_x.c

@@ -91,6 +91,8 @@ T(us)
 T(ss)
 T(f)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/scalar-by-value-3_x.c

@@ -165,6 +165,8 @@ T(cll)
 T(cd)
 T(cld)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/scalar-by-value-4_x.c

@@ -85,6 +85,8 @@ T(cc)
 T(cs)
 T(cf)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/scalar-return-1_x.c

@@ -111,6 +111,8 @@ T(sll)
 T(d)
 T(ld)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/scalar-return-2_x.c

@@ -77,6 +77,8 @@ T(us)
 T(ss)
 T(f)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/scalar-return-3_x.c

@@ -105,6 +105,8 @@ T(cll)
 T(cd)
 T(cld)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/scalar-return-4_x.c

@@ -53,6 +53,8 @@ T(cc)
 T(cs)
 T(cf)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-10_x.c

@@ -175,6 +175,8 @@ T(Sdlf)
 T(Slfd)
 T(Sldf)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-11_x.c

@@ -50,6 +50,8 @@ T(Scc14, _Complex char)
 T(Scc15, _Complex char)
 T(Scc16, _Complex char)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-12_x.c

@@ -50,6 +50,8 @@ T(Scs14, _Complex short)
 T(Scs15, _Complex short)
 T(Scs16, _Complex short)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-13_x.c

@@ -50,6 +50,8 @@ T(Sci14, _Complex int)
 T(Sci15, _Complex int)
 T(Sci16, _Complex int)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-14_x.c

@@ -50,6 +50,8 @@ T(Scl14, _Complex long)
 T(Scl15, _Complex long)
 T(Scl16, _Complex long)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-15_x.c

@@ -50,6 +50,8 @@ T(Scll14, _Complex long long)
 T(Scll15, _Complex long long)
 T(Scll16, _Complex long long)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-16_x.c

@@ -50,6 +50,8 @@ T(Scf14, _Complex float)
 T(Scf15, _Complex float)
 T(Scf16, _Complex float)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-17_x.c

@@ -50,6 +50,8 @@ T(Scd14, _Complex double)
 T(Scd15, _Complex double)
 T(Scd16, _Complex double)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-18_x.c

@@ -50,6 +50,8 @@ T(Scld14, _Complex long double)
 T(Scld15, _Complex long double)
 T(Scld16, _Complex long double)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-2_x.c

@@ -212,6 +212,8 @@ T(13, ui, unsigned int)
 T(14, ui, unsigned int)
 T(15, ui, unsigned int)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-3_x.c

@@ -181,6 +181,8 @@ T(Ssic)
 T(Sisc)
 T(Sics)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-4_x.c

@@ -236,6 +236,8 @@ T(13, Si)
 T(14, Si)
 T(15, Si)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-5_x.c

@@ -50,6 +50,8 @@ T(Sf14, float)
 T(Sf15, float)
 T(Sf16, float)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-6_x.c

@@ -50,6 +50,8 @@ T(Sd14, double)
 T(Sd15, double)
 T(Sd16, double)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-7_x.c

@@ -50,6 +50,8 @@ T(Sld14, long double)
 T(Sld15, long double)
 T(Sld16, long double)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-8_x.c

@@ -204,6 +204,8 @@ T(13, Sis)
 T(14, Sis)
 T(15, Sis)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-by-value-9_x.c

@@ -207,6 +207,8 @@ T(13, Scis)
 T(14, Scis)
 T(15, Scis)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-return-10_x.c

@@ -110,6 +110,8 @@ T(Sdlf);
 T(Slfd);
 T(Sldf);
 
+DEBUG_FINI
+
 if (fails != 0)
   return;
 

gcc/testsuite/gcc.dg/compat/struct-return-2_x.c

@@ -209,6 +209,8 @@ T(13, ui, unsigned int)
 T(14, ui, unsigned int)
 T(15, ui, unsigned int)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 

gcc/testsuite/gcc.dg/compat/struct-return-3_x.c

@@ -126,6 +126,8 @@ T(Ssic)
 T(Sisc)
 T(Sics)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();