diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0d714dd57ec00a7efb04d40854fb8236b665ddcf..8a2b08402d574dd109aa941efa773408bd89cd73 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,35 @@
+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.
diff --git a/gcc/testsuite/gcc.dg/compat/compat-common.h b/gcc/testsuite/gcc.dg/compat/compat-common.h
index 46eaf42b9a871a75056ac7393f60ff031469f506..95c1af4b194f8327e2644836712521ce2ae27207 100644
--- a/gcc/testsuite/gcc.dg/compat/compat-common.h
+++ b/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
diff --git a/gcc/testsuite/gcc.dg/compat/scalar-by-value-1_x.c b/gcc/testsuite/gcc.dg/compat/scalar-by-value-1_x.c
index 51b5abd3d77be319cf88bf82c46a2d0de7ffac6d..f17ed8b2e554b80a34e7734be544cf25406f0e97 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-by-value-1_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/scalar-by-value-2_x.c b/gcc/testsuite/gcc.dg/compat/scalar-by-value-2_x.c
index fae665f2ca17cdf751294d355d6dda8c6ddae927..9e29b3ebb96b6a80c0246312bb36dc1d98398895 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-by-value-2_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/scalar-by-value-3_x.c b/gcc/testsuite/gcc.dg/compat/scalar-by-value-3_x.c
index 523210f8221d05758bfd0a353c9494b00ae163eb..f5eea8d36684f65dec5bccbc73676437822059c7 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-by-value-3_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/scalar-by-value-4_x.c b/gcc/testsuite/gcc.dg/compat/scalar-by-value-4_x.c
index 3b4c427c2ac0aa7e5de117e7e3677eb86de6c9cc..79ac7118df142a2d8614d0863eb2fd296f6bfc66 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-by-value-4_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/scalar-return-1_x.c b/gcc/testsuite/gcc.dg/compat/scalar-return-1_x.c
index 7e8f975f758f298baa2685ae601a016527804f45..3e56487afbc02d38793700cac69a111a97e46557 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-return-1_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/scalar-return-2_x.c b/gcc/testsuite/gcc.dg/compat/scalar-return-2_x.c
index 2e68d59b7eae34582abc1fcdf79293f20adda9a3..888e3f43d6aef4022e4affd170c159314b5d74ae 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-return-2_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/scalar-return-3_x.c b/gcc/testsuite/gcc.dg/compat/scalar-return-3_x.c
index 5cf84faa04b044bfd8d2b8c1b990e2d6bf3bb73d..957cde7ff08937d8f85722ad60b0a656c0955cc1 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-return-3_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/scalar-return-4_x.c b/gcc/testsuite/gcc.dg/compat/scalar-return-4_x.c
index cb413e62d4cab7c294d297deb05e9750ded47523..fb7fd4b9ba3503ffe1e996457938a1200d50c4ac 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-return-4_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-10_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-10_x.c
index 7468dc72a9d96a50f9b771bb414a154744820a16..861ee4917c81c637b06c37e313afd4417213e846 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-10_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-11_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-11_x.c
index 237f67164034c4de8167aa0801ce080f89f409ca..5ea5a8eded31db2b4f3d10bfe8fbac5b1a1b7cc3 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-11_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-12_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-12_x.c
index 2ba6fc6c0b6ed2d9e7657bbe097969920e6111c9..dd7586406d5e11109bfbe8cfa58de04466cd38be 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-12_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-13_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-13_x.c
index bf7af3a3603c0063eb5369a561a7dddab33d1b54..2b8da398ef03d6628b13ec60c075876f0ae465cd 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-13_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-14_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-14_x.c
index 765144c5376a924dd7e2fbb3878bc5f14c439c5b..19ac834d223d0710de3c2f1d12628e396b48e418 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-14_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-15_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-15_x.c
index 732582e76b59acc89d7dcc92c4721da5622c49f3..f424342dbc8904ccf207ce3066532461d7e51a59 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-15_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-16_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-16_x.c
index ef701767eb87a69a291f86096eab06dacc83842b..2485a90c55ad9baed16cba5f5fe7fa99da08eee2 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-16_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-17_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-17_x.c
index 624cc34df60c2a4322c148f0e495097b684300b0..349e23f22381dc71453c24c085383c1a580aba38 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-17_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-18_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-18_x.c
index ec02c568de91f312c7a6ad95429b6a1e15f32e7a..dea586cb64c791f6a55ff637610d8703cb15e1d3 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-18_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-2_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-2_x.c
index ce455bf5bc224f1126f37f0eb2d8f48a387e1e0d..06aec702ef1573e6575db3e865a2fa001f0e25c5 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-2_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-3_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-3_x.c
index 4490f48563467e3ae65cfc61dfd2406a205ca61e..c54e47b739357410b85b99bf975ffc61a2f05226 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-3_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-4_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-4_x.c
index 4b24cd56a85de92a8443679d4ff6924efbea677f..d53396e1f12b90f701706a5e4882a4191a1ff4c0 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-4_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-5_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-5_x.c
index 6db7771bc3a5492e2addddad68c6fed93527e00b..46ca6c04caadc6295f869fde51b5f7bf5fd74dad 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-5_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-6_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-6_x.c
index cef1523b3ff31d64800931db9e9f359597019a11..4ce1f7c18cf26f3230c82786744e0e24bd6697e2 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-6_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-7_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-7_x.c
index 30d945082f7cbbedb24056f66f0ebf64f3821d2e..f4459f57e027dded96081ae29ec6b8951669963c 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-7_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-8_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-8_x.c
index 6c983c58cb9e0a65ff9108bb5ad13330440612bb..cdde06b05eb920cc927927350dc75e5dcc45585d 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-8_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-9_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-9_x.c
index 3cd7ca74f048b6d661e80759f68db1f1c955992f..9f2f9c0b5040f811a6ef0431923c82b534b34e11 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-by-value-9_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-return-10_x.c b/gcc/testsuite/gcc.dg/compat/struct-return-10_x.c
index f3e375bb44670218d3f4c8c414facccdd6b83261..bb2644a11ed8b912d69e0e825215aec552af8df3 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-return-10_x.c
+++ b/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);
diff --git a/gcc/testsuite/gcc.dg/compat/struct-return-2_x.c b/gcc/testsuite/gcc.dg/compat/struct-return-2_x.c
index ff83e95f064b63e957b86e0c480d0c6df447bc75..a0658a5b8578c2c9f0b4a0da1e654b7daa446637 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-return-2_x.c
+++ b/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)
diff --git a/gcc/testsuite/gcc.dg/compat/struct-return-3_x.c b/gcc/testsuite/gcc.dg/compat/struct-return-3_x.c
index 62e9a94f5aba157327bf18fdb582b0e42b809a28..d4e81d7672941ddd7f6c41aa80fbbee6423db8df 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-return-3_x.c
+++ b/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)