compat-common.h (DEBUG_INIT): New.

	* gcc.dg/compat/compat-common.h (DEBUG_INIT): 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: r68093

gcc/testsuite/ChangeLog

+2003-06-17  Janis Johnson  <janis187@us.ibm.com>
+
+	* gcc.dg/compat/compat-common.h (DEBUG_INIT): 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-06-16  Mark Mitchell  <mark@codesourcery.com>
 
 	* lib/gcc-dg.exp (dg-xfail-if): Fix thinko.

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

@@ -6,12 +6,14 @@
  
 #ifdef DBG
 #include <stdio.h>
+#define DEBUG_INIT setbuf (stdout, NULL);
 #define DEBUG_FPUTS(x) fputs (x, stdout)
 #define DEBUG_DOT putc ('.', stdout)
 #define DEBUG_NL putc ('\n', stdout)
 #define DEBUG_FAIL putc ('F', stdout); fails++
 #define DEBUG_CHECK { DEBUG_FAIL; } else { DEBUG_DOT; }
 #else
+#define DEBUG_INIT
 #define DEBUG_FPUTS(x)
 #define DEBUG_DOT
 #define DEBUG_NL

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

@@ -158,6 +158,8 @@ T(ld, long double, 92.0)
 void
 scalar_by_value_1_x ()
 {
+DEBUG_INIT
+
 #define T(NAME) testit##NAME ();
 
 T(ui)

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

@@ -80,6 +80,8 @@ T(f, float, 90.0)
 void
 scalar_by_value_2_x ()
 {
+DEBUG_INIT
+
 #define T(NAME) testit##NAME ();
 
 T(c)

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

@@ -155,6 +155,8 @@ T(cld, _Complex long double, (8.0,9.0))
 void
 scalar_by_value_3_x ()
 {
+DEBUG_INIT
+
 #define T(NAME) testit##NAME ();
 
 T(ci)

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

@@ -77,6 +77,8 @@ T(cf, _Complex float, (6.0,7.0))
 void
 scalar_by_value_4_x ()
 {
+DEBUG_INIT
+
 #define T(NAME) testit##NAME ();
 
 T(cc)

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

@@ -98,6 +98,8 @@ T(ld, long double, 92.0)
 void
 scalar_return_1_x ()
 {
+DEBUG_INIT
+
 #define T(NAME) testit##NAME ();
 
 T(ui)

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

@@ -66,6 +66,8 @@ T(f, float, 90.0)
 void
 scalar_return_2_x ()
 {
+DEBUG_INIT
+
 #define T(NAME) testit##NAME ();
 
 T(c)

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

@@ -95,6 +95,8 @@ T(cld, _Complex long double, (3.0,4.0))
 void
 scalar_return_3_x ()
 {
+DEBUG_INIT
+
 #define T(NAME) testit##NAME ();
 
 T(ci)

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

@@ -45,6 +45,8 @@ T(cf, _Complex float, (1.0,2.0))
 void
 scalar_return_4_x ()
 {
+DEBUG_INIT
+
 #define T(NAME) testit##NAME ();
 
 T(cc)

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

@@ -158,6 +158,8 @@ TEST(Sldf)
 void
 struct_by_value_10_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE) testit##TYPE ();
 
 T(Sfd)

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

@@ -29,6 +29,8 @@ TEST(Scc16, _Complex char)
 void
 struct_by_value_11_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Scc1, _Complex char)

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

@@ -29,6 +29,8 @@ TEST(Scs16, _Complex short)
 void
 struct_by_value_12_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Scs1, _Complex short)

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

@@ -29,6 +29,8 @@ TEST(Sci16, _Complex int)
 void
 struct_by_value_13_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Sci1, _Complex int)

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

@@ -29,6 +29,8 @@ TEST(Scl16, _Complex long)
 void
 struct_by_value_14_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Scl1, _Complex long)

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

@@ -29,6 +29,8 @@ TEST(Scll16, _Complex long long)
 void
 struct_by_value_15_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Scll1, _Complex long long)

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

@@ -29,6 +29,8 @@ TEST(Scf16, _Complex float)
 void
 struct_by_value_16_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Scf1, _Complex float)

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

@@ -29,6 +29,8 @@ TEST(Scd16, _Complex double)
 void
 struct_by_value_17_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Scd1, _Complex double)

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

@@ -29,6 +29,8 @@ TEST(Scld16, _Complex long double)
 void
 struct_by_value_18_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Scld1, _Complex long double)

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

@@ -159,6 +159,8 @@ T(15, ui, unsigned int)
 void
 struct_by_value_2_x ()
 {
+DEBUG_INIT
+
 #define T(N, NAME, TYPE) testit##NAME##N ();
 
 T(0, uc, unsigned char)

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

@@ -161,6 +161,8 @@ T(Sics)
 void
 struct_by_value_3_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE) testit##TYPE ();
 
 T(Sc)

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

@@ -183,6 +183,8 @@ T(15, Si)
 void
 struct_by_value_4_x ()
 {
+DEBUG_INIT
+
 #define T(N, TYPE) testit##TYPE##N ();
 
 T(0, Sc)

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

@@ -29,6 +29,8 @@ TEST(Sf16, float)
 void
 struct_by_value_5_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Sf1, float)

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

@@ -29,6 +29,8 @@ TEST(Sd16, double)
 void
 struct_by_value_6_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Sd1, double)

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

@@ -29,6 +29,8 @@ TEST(Sld16, long double)
 void
 struct_by_value_7_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE, MTYPE) testit##TYPE ();
 
 T(Sld1, long double)

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

@@ -167,6 +167,8 @@ T(15, Sis)
 void
 struct_by_value_8_x ()
 {
+DEBUG_INIT
+
 #define T(N, TYPE) testit##TYPE##N ();
 
 T(0, Ssc)

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

@@ -170,6 +170,8 @@ T(15, Scis)
 void
 struct_by_value_9_x ()
 {
+DEBUG_INIT
+
 #define T(N, TYPE) testit##TYPE##N ();
 
 T(0, Scsi)

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

@@ -93,6 +93,8 @@ T(Sldf);
 void
 struct_return_10_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE) testit##TYPE ();
 
 T(Sfd);

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

@@ -156,6 +156,8 @@ T(15, ui, unsigned int)
 void
 struct_return_2_x ()
 {
+DEBUG_INIT
+
 #define T(N, NAME, TYPE) testit##NAME##N ();
 
 T(0, uc, unsigned char)

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

@@ -106,6 +106,8 @@ T(Sics)
 void
 struct_return_3_x ()
 {
+DEBUG_INIT
+
 #define T(TYPE) testit##TYPE ();
 
 T(Sc)