This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] testsuite/gcc.dg/compat: more debugging output
- From: Janis Johnson <janis187 at us dot ibm dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Thu, 3 Jul 2003 11:32:35 -0700
- Subject: [PATCH] testsuite/gcc.dg/compat: more debugging output
This is a very boring patch that adds one more line of debugging output
to C binary compatibility tests to make it clear that the test has run
to completion, which is useful for failing tests where it's not always
clear whether an abort is because the test had failures or for some
other reason. It's been applied.
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.
Index: gcc.dg/compat/compat-common.h
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/compat-common.h,v
retrieving revision 1.2
diff -u -p -r1.2 compat-common.h
--- gcc.dg/compat/compat-common.h 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/compat-common.h 2 Jul 2003 16:57:58 -0000
@@ -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);
Index: gcc.dg/compat/scalar-by-value-1_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/scalar-by-value-1_x.c,v
retrieving revision 1.3
diff -u -p -r1.3 scalar-by-value-1_x.c
--- gcc.dg/compat/scalar-by-value-1_x.c 17 Jun 2003 16:28:56 -0000 1.3
+++ gcc.dg/compat/scalar-by-value-1_x.c 2 Jul 2003 16:57:58 -0000
@@ -171,6 +171,8 @@ T(sll)
T(d)
T(ld)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/scalar-by-value-2_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/scalar-by-value-2_x.c,v
retrieving revision 1.3
diff -u -p -r1.3 scalar-by-value-2_x.c
--- gcc.dg/compat/scalar-by-value-2_x.c 17 Jun 2003 16:28:56 -0000 1.3
+++ gcc.dg/compat/scalar-by-value-2_x.c 2 Jul 2003 16:57:58 -0000
@@ -91,6 +91,8 @@ T(us)
T(ss)
T(f)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/scalar-by-value-3_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/scalar-by-value-3_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 scalar-by-value-3_x.c
--- gcc.dg/compat/scalar-by-value-3_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/scalar-by-value-3_x.c 2 Jul 2003 16:57:58 -0000
@@ -165,6 +165,8 @@ T(cll)
T(cd)
T(cld)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/scalar-by-value-4_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/scalar-by-value-4_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 scalar-by-value-4_x.c
--- gcc.dg/compat/scalar-by-value-4_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/scalar-by-value-4_x.c 2 Jul 2003 16:57:59 -0000
@@ -85,6 +85,8 @@ T(cc)
T(cs)
T(cf)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/scalar-return-1_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/scalar-return-1_x.c,v
retrieving revision 1.3
diff -u -p -r1.3 scalar-return-1_x.c
--- gcc.dg/compat/scalar-return-1_x.c 17 Jun 2003 16:28:56 -0000 1.3
+++ gcc.dg/compat/scalar-return-1_x.c 2 Jul 2003 16:57:59 -0000
@@ -111,6 +111,8 @@ T(sll)
T(d)
T(ld)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/scalar-return-2_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/scalar-return-2_x.c,v
retrieving revision 1.3
diff -u -p -r1.3 scalar-return-2_x.c
--- gcc.dg/compat/scalar-return-2_x.c 17 Jun 2003 16:28:56 -0000 1.3
+++ gcc.dg/compat/scalar-return-2_x.c 2 Jul 2003 16:57:59 -0000
@@ -77,6 +77,8 @@ T(us)
T(ss)
T(f)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/scalar-return-3_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/scalar-return-3_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 scalar-return-3_x.c
--- gcc.dg/compat/scalar-return-3_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/scalar-return-3_x.c 2 Jul 2003 16:57:59 -0000
@@ -105,6 +105,8 @@ T(cll)
T(cd)
T(cld)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/scalar-return-4_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/scalar-return-4_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 scalar-return-4_x.c
--- gcc.dg/compat/scalar-return-4_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/scalar-return-4_x.c 2 Jul 2003 16:57:59 -0000
@@ -53,6 +53,8 @@ T(cc)
T(cs)
T(cf)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-10_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-10_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-by-value-10_x.c
--- gcc.dg/compat/struct-by-value-10_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-by-value-10_x.c 2 Jul 2003 16:57:59 -0000
@@ -175,6 +175,8 @@ T(Sdlf)
T(Slfd)
T(Sldf)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-11_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-11_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-by-value-11_x.c
--- gcc.dg/compat/struct-by-value-11_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-by-value-11_x.c 2 Jul 2003 16:57:59 -0000
@@ -50,6 +50,8 @@ T(Scc14, _Complex char)
T(Scc15, _Complex char)
T(Scc16, _Complex char)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-12_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-12_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-by-value-12_x.c
--- gcc.dg/compat/struct-by-value-12_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-by-value-12_x.c 2 Jul 2003 16:57:59 -0000
@@ -50,6 +50,8 @@ T(Scs14, _Complex short)
T(Scs15, _Complex short)
T(Scs16, _Complex short)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-13_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-13_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-by-value-13_x.c
--- gcc.dg/compat/struct-by-value-13_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-by-value-13_x.c 2 Jul 2003 16:57:59 -0000
@@ -50,6 +50,8 @@ T(Sci14, _Complex int)
T(Sci15, _Complex int)
T(Sci16, _Complex int)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-14_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-14_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-by-value-14_x.c
--- gcc.dg/compat/struct-by-value-14_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-by-value-14_x.c 2 Jul 2003 16:57:59 -0000
@@ -50,6 +50,8 @@ T(Scl14, _Complex long)
T(Scl15, _Complex long)
T(Scl16, _Complex long)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-15_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-15_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-by-value-15_x.c
--- gcc.dg/compat/struct-by-value-15_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-by-value-15_x.c 2 Jul 2003 16:57:59 -0000
@@ -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 ();
Index: gcc.dg/compat/struct-by-value-16_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-16_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-by-value-16_x.c
--- gcc.dg/compat/struct-by-value-16_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-by-value-16_x.c 2 Jul 2003 16:57:59 -0000
@@ -50,6 +50,8 @@ T(Scf14, _Complex float)
T(Scf15, _Complex float)
T(Scf16, _Complex float)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-17_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-17_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-by-value-17_x.c
--- gcc.dg/compat/struct-by-value-17_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-by-value-17_x.c 2 Jul 2003 16:57:59 -0000
@@ -50,6 +50,8 @@ T(Scd14, _Complex double)
T(Scd15, _Complex double)
T(Scd16, _Complex double)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-18_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-18_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-by-value-18_x.c
--- gcc.dg/compat/struct-by-value-18_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-by-value-18_x.c 2 Jul 2003 16:57:59 -0000
@@ -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 ();
Index: gcc.dg/compat/struct-by-value-2_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-2_x.c,v
retrieving revision 1.3
diff -u -p -r1.3 struct-by-value-2_x.c
--- gcc.dg/compat/struct-by-value-2_x.c 17 Jun 2003 16:28:56 -0000 1.3
+++ gcc.dg/compat/struct-by-value-2_x.c 2 Jul 2003 16:57:59 -0000
@@ -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 ();
Index: gcc.dg/compat/struct-by-value-3_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-3_x.c,v
retrieving revision 1.4
diff -u -p -r1.4 struct-by-value-3_x.c
--- gcc.dg/compat/struct-by-value-3_x.c 17 Jun 2003 16:28:56 -0000 1.4
+++ gcc.dg/compat/struct-by-value-3_x.c 2 Jul 2003 16:57:59 -0000
@@ -181,6 +181,8 @@ T(Ssic)
T(Sisc)
T(Sics)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-4_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-4_x.c,v
retrieving revision 1.4
diff -u -p -r1.4 struct-by-value-4_x.c
--- gcc.dg/compat/struct-by-value-4_x.c 17 Jun 2003 16:28:56 -0000 1.4
+++ gcc.dg/compat/struct-by-value-4_x.c 2 Jul 2003 16:57:59 -0000
@@ -236,6 +236,8 @@ T(13, Si)
T(14, Si)
T(15, Si)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-5_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-5_x.c,v
retrieving revision 1.5
diff -u -p -r1.5 struct-by-value-5_x.c
--- gcc.dg/compat/struct-by-value-5_x.c 17 Jun 2003 16:28:56 -0000 1.5
+++ gcc.dg/compat/struct-by-value-5_x.c 2 Jul 2003 16:57:59 -0000
@@ -50,6 +50,8 @@ T(Sf14, float)
T(Sf15, float)
T(Sf16, float)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-6_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-6_x.c,v
retrieving revision 1.4
diff -u -p -r1.4 struct-by-value-6_x.c
--- gcc.dg/compat/struct-by-value-6_x.c 17 Jun 2003 16:28:56 -0000 1.4
+++ gcc.dg/compat/struct-by-value-6_x.c 2 Jul 2003 16:57:59 -0000
@@ -50,6 +50,8 @@ T(Sd14, double)
T(Sd15, double)
T(Sd16, double)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-7_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-7_x.c,v
retrieving revision 1.4
diff -u -p -r1.4 struct-by-value-7_x.c
--- gcc.dg/compat/struct-by-value-7_x.c 17 Jun 2003 16:28:56 -0000 1.4
+++ gcc.dg/compat/struct-by-value-7_x.c 2 Jul 2003 16:57:59 -0000
@@ -50,6 +50,8 @@ T(Sld14, long double)
T(Sld15, long double)
T(Sld16, long double)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-8_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-8_x.c,v
retrieving revision 1.3
diff -u -p -r1.3 struct-by-value-8_x.c
--- gcc.dg/compat/struct-by-value-8_x.c 17 Jun 2003 16:28:56 -0000 1.3
+++ gcc.dg/compat/struct-by-value-8_x.c 2 Jul 2003 16:57:59 -0000
@@ -204,6 +204,8 @@ T(13, Sis)
T(14, Sis)
T(15, Sis)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-by-value-9_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-by-value-9_x.c,v
retrieving revision 1.3
diff -u -p -r1.3 struct-by-value-9_x.c
--- gcc.dg/compat/struct-by-value-9_x.c 17 Jun 2003 16:28:56 -0000 1.3
+++ gcc.dg/compat/struct-by-value-9_x.c 2 Jul 2003 16:57:59 -0000
@@ -207,6 +207,8 @@ T(13, Scis)
T(14, Scis)
T(15, Scis)
+DEBUG_FINI
+
if (fails != 0)
abort ();
Index: gcc.dg/compat/struct-return-10_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-return-10_x.c,v
retrieving revision 1.2
diff -u -p -r1.2 struct-return-10_x.c
--- gcc.dg/compat/struct-return-10_x.c 17 Jun 2003 16:28:56 -0000 1.2
+++ gcc.dg/compat/struct-return-10_x.c 2 Jul 2003 16:57:59 -0000
@@ -110,6 +110,8 @@ T(Sdlf);
T(Slfd);
T(Sldf);
+DEBUG_FINI
+
if (fails != 0)
return;
Index: gcc.dg/compat/struct-return-2_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-return-2_x.c,v
retrieving revision 1.3
diff -u -p -r1.3 struct-return-2_x.c
--- gcc.dg/compat/struct-return-2_x.c 17 Jun 2003 16:28:56 -0000 1.3
+++ gcc.dg/compat/struct-return-2_x.c 2 Jul 2003 16:57:59 -0000
@@ -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 ();
Index: gcc.dg/compat/struct-return-3_x.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gcc.dg/compat/struct-return-3_x.c,v
retrieving revision 1.3
diff -u -p -r1.3 struct-return-3_x.c
--- gcc.dg/compat/struct-return-3_x.c 17 Jun 2003 16:28:56 -0000 1.3
+++ gcc.dg/compat/struct-return-3_x.c 2 Jul 2003 16:58:00 -0000
@@ -126,6 +126,8 @@ T(Ssic)
T(Sisc)
T(Sics)
+DEBUG_FINI
+
if (fails != 0)
abort ();