From 9b269fc7bc405c83aa1af45680a9e07e35cf2395 Mon Sep 17 00:00:00 2001 From: Janis Johnson Date: Thu, 3 Jul 2003 18:31:59 +0000 Subject: 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 | 32 ++++++++++++++++++++++ gcc/testsuite/gcc.dg/compat/compat-common.h | 3 ++ gcc/testsuite/gcc.dg/compat/scalar-by-value-1_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/scalar-by-value-2_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/scalar-by-value-3_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/scalar-by-value-4_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/scalar-return-1_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/scalar-return-2_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/scalar-return-3_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/scalar-return-4_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-10_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-11_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-12_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-13_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-14_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-15_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-16_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-17_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-18_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-2_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-3_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-4_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-5_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-6_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-7_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-8_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-by-value-9_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-return-10_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-return-2_x.c | 2 ++ gcc/testsuite/gcc.dg/compat/struct-return-3_x.c | 2 ++ 30 files changed, 91 insertions(+) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index fe736d8..bc17034 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,35 @@ +2003-07-03 Janis Johnson + + * 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 * 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 95c1af4..95b945f 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 f17ed8b..3bfa766 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 9e29b3e..48ea1d9 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 f5eea8d..25bb389 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 79ac711..8231950 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 3e56487a..6525e5e 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 888e3f4..f864d4c 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 957cde7..9dceccd 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 fb7fd4b..c3b31f8 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 861ee49..5954104 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 5ea5a8e..b9be4f3 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 dd75864..6f943b7 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 2b8da39..4418522 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 19ac834..e5dbe73 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 f424342..213568a 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 2485a90..6b73318 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 349e23f..cba628b 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 dea586c..e040ecc 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 06aec70..48bb0b7 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 c54e47b..38e5b54 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 d53396e..e90b710 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 46ca6c0..e0cbb57 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 4ce1f7c..2198919 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 f4459f5..018db25 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 cdde06b..6fe9ce7 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 9f2f9c0..d6e43e75 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 bb2644a..bb417d7 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 a0658a5..4463dc4 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 d4e81d7..e8b1885 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 (); -- cgit v1.1