diff options
author | janis <janis@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-06-17 16:28:56 +0000 |
---|---|---|
committer | janis <janis@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-06-17 16:28:56 +0000 |
commit | 420ebdf9b0789a7cfc6a13745ea6d1357e7a86b2 (patch) | |
tree | 81076a8e986342a57e4fe8fd09a4f3502dd3352a /gcc/testsuite | |
parent | 80183f370185b3acf9b4a34c498848d1f8601c1b (diff) | |
download | gcc-420ebdf9b0789a7cfc6a13745ea6d1357e7a86b2.tar.gz |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@68093 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
30 files changed, 90 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0d714dd57ec..8a2b08402d5 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 46eaf42b9a8..95c1af4b194 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 51b5abd3d77..f17ed8b2e55 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 fae665f2ca1..9e29b3ebb96 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 523210f8221..f5eea8d3668 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 3b4c427c2ac..79ac7118df1 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 7e8f975f758..3e56487afbc 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 2e68d59b7ea..888e3f43d6a 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 5cf84faa04b..957cde7ff08 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 cb413e62d4c..fb7fd4b9ba3 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 7468dc72a9d..861ee4917c8 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 237f6716403..5ea5a8eded3 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 2ba6fc6c0b6..dd7586406d5 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 bf7af3a3603..2b8da398ef0 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 765144c5376..19ac834d223 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 732582e76b5..f424342dbc8 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 ef701767eb8..2485a90c55a 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 624cc34df60..349e23f2238 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 ec02c568de9..dea586cb64c 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 ce455bf5bc2..06aec702ef1 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 4490f485634..c54e47b7393 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 4b24cd56a85..d53396e1f12 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 6db7771bc3a..46ca6c04caa 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 cef1523b3ff..4ce1f7c18cf 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 30d945082f7..f4459f57e02 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 6c983c58cb9..cdde06b05eb 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 3cd7ca74f04..9f2f9c0b504 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 f3e375bb446..bb2644a11ed 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 ff83e95f064..a0658a5b857 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 62e9a94f5ab..d4e81d76729 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) |