From: Janis Johnson <janis187@us.ibm.com>
Date: Thu, 3 Jul 2003 18:31:59 +0000 (+0000)
Subject: compat-common.h (DEBUG_FINI): New.
X-Git-Tag: releases/gcc-3.4.0~5195
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=9b269fc7bc405c83aa1af45680a9e07e35cf2395;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index fe736d806d17..bc1703464a6e 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,35 @@
+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.
diff --git a/gcc/testsuite/gcc.dg/compat/compat-common.h b/gcc/testsuite/gcc.dg/compat/compat-common.h
index 95c1af4b194f..95b945fae416 100644
--- a/gcc/testsuite/gcc.dg/compat/compat-common.h
+++ b/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);
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 f17ed8b2e554..3bfa76644e01 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
@@ -171,6 +171,8 @@ T(sll)
 T(d)
 T(ld)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 9e29b3ebb96b..48ea1d9975ff 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
@@ -91,6 +91,8 @@ T(us)
 T(ss)
 T(f)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 f5eea8d36684..25bb389d0c1e 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
@@ -165,6 +165,8 @@ T(cll)
 T(cd)
 T(cld)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 79ac7118df14..8231950c6ef5 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
@@ -85,6 +85,8 @@ T(cc)
 T(cs)
 T(cf)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 3e56487afbc0..6525e5e56665 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-return-1_x.c
+++ b/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 ();
 
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 888e3f43d6ae..f864d4c96f4e 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-return-2_x.c
+++ b/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 ();
 
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 957cde7ff089..9dceccdd8902 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-return-3_x.c
+++ b/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 ();
 
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 fb7fd4b9ba35..c3b31f8c9bfd 100644
--- a/gcc/testsuite/gcc.dg/compat/scalar-return-4_x.c
+++ b/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 ();
 
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 861ee4917c81..5954104aa76d 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
@@ -175,6 +175,8 @@ T(Sdlf)
 T(Slfd)
 T(Sldf)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 5ea5a8eded31..b9be4f3b968f 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
@@ -50,6 +50,8 @@ T(Scc14, _Complex char)
 T(Scc15, _Complex char)
 T(Scc16, _Complex char)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 dd7586406d5e..6f943b75fe08 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
@@ -50,6 +50,8 @@ T(Scs14, _Complex short)
 T(Scs15, _Complex short)
 T(Scs16, _Complex short)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 2b8da398ef03..4418522d3425 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
@@ -50,6 +50,8 @@ T(Sci14, _Complex int)
 T(Sci15, _Complex int)
 T(Sci16, _Complex int)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 19ac834d223d..e5dbe736a12c 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
@@ -50,6 +50,8 @@ T(Scl14, _Complex long)
 T(Scl15, _Complex long)
 T(Scl16, _Complex long)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 f424342dbc89..213568ab40a1 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
@@ -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 ();
 
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 2485a90c55ad..6b7331833aef 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
@@ -50,6 +50,8 @@ T(Scf14, _Complex float)
 T(Scf15, _Complex float)
 T(Scf16, _Complex float)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 349e23f22381..cba628bcb5b2 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
@@ -50,6 +50,8 @@ T(Scd14, _Complex double)
 T(Scd15, _Complex double)
 T(Scd16, _Complex double)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 dea586cb64c7..e040ecc79a71 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
@@ -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 ();
 
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 06aec702ef15..48bb0b706757 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
@@ -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 ();
 
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 c54e47b73935..38e5b546a5b8 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
@@ -181,6 +181,8 @@ T(Ssic)
 T(Sisc)
 T(Sics)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 d53396e1f12b..e90b710b9fc1 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
@@ -236,6 +236,8 @@ T(13, Si)
 T(14, Si)
 T(15, Si)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 46ca6c04caad..e0cbb5782c26 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
@@ -50,6 +50,8 @@ T(Sf14, float)
 T(Sf15, float)
 T(Sf16, float)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 4ce1f7c18cf2..21989194cf78 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
@@ -50,6 +50,8 @@ T(Sd14, double)
 T(Sd15, double)
 T(Sd16, double)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 f4459f57e027..018db252ae4a 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
@@ -50,6 +50,8 @@ T(Sld14, long double)
 T(Sld15, long double)
 T(Sld16, long double)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 cdde06b05eb9..6fe9ce75ae02 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
@@ -204,6 +204,8 @@ T(13, Sis)
 T(14, Sis)
 T(15, Sis)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 9f2f9c0b5040..d6e43e75b0b0 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
@@ -207,6 +207,8 @@ T(13, Scis)
 T(14, Scis)
 T(15, Scis)
 
+DEBUG_FINI
+
 if (fails != 0)
   abort ();
 
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 bb2644a11ed8..bb417d76146c 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-return-10_x.c
+++ b/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;
 
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 a0658a5b8578..4463dc4cbcd4 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-return-2_x.c
+++ b/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 ();
 
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 d4e81d767294..e8b18850b1f3 100644
--- a/gcc/testsuite/gcc.dg/compat/struct-return-3_x.c
+++ b/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 ();