From: Kaveh R. Ghazi Date: Wed, 7 Apr 2004 00:58:40 +0000 (+0000) Subject: struct-by-value-5a_main.c, [...]: New files. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=136726404100714571f32e9b5f6ae4077db11212;p=gcc.git struct-by-value-5a_main.c, [...]: New files. * gcc.dg/compat/struct-by-value-5a_main.c, gcc.dg/compat/struct-by-value-5b_main.c: New files. * gcc.dg/compat/struct-by-value-5_main.c: Delete. * gcc.dg/compat/struct-by-value-5a_x.c, gcc.dg/compat/struct-by-value-5b_x.c: New, split out from gcc.dg/compat/struct-by-value-5_x.c. * gcc.dg/compat/struct-by-value-5a_y.c, gcc.dg/compat/struct-by-value-5b_y.c: New, split out from gcc.dg/compat/struct-by-value-5_y.c. * gcc.dg/compat/struct-by-value-6a_main.c, gcc.dg/compat/struct-by-value-6b_main.c: New files. * gcc.dg/compat/struct-by-value-6_main.c: Delete. * gcc.dg/compat/struct-by-value-6a_x.c, gcc.dg/compat/struct-by-value-6b_x.c: New, split out from gcc.dg/compat/struct-by-value-6_x.c. * gcc.dg/compat/struct-by-value-6a_y.c, gcc.dg/compat/struct-by-value-6b_y.c: New, split out from gcc.dg/compat/struct-by-value-6_y.c. * gcc.dg/compat/struct-by-value-7a_main.c, gcc.dg/compat/struct-by-value-7b_main.c: New files. * gcc.dg/compat/struct-by-value-7_main.c: Delete. * gcc.dg/compat/struct-by-value-7a_x.c, gcc.dg/compat/struct-by-value-7b_x.c: New, split out from gcc.dg/compat/struct-by-value-7_x.c. * gcc.dg/compat/struct-by-value-7a_y.c, gcc.dg/compat/struct-by-value-7b_y.c: New, split out from gcc.dg/compat/struct-by-value-7_y.c. From-SVN: r80472 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 77a46b07f8c..9bff30fef3a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,35 @@ +2004-04-06 Kaveh R. Ghazi + + * gcc.dg/compat/struct-by-value-5a_main.c, + gcc.dg/compat/struct-by-value-5b_main.c: New files. + * gcc.dg/compat/struct-by-value-5_main.c: Delete. + * gcc.dg/compat/struct-by-value-5a_x.c, + gcc.dg/compat/struct-by-value-5b_x.c: New, split out from + gcc.dg/compat/struct-by-value-5_x.c. + * gcc.dg/compat/struct-by-value-5a_y.c, + gcc.dg/compat/struct-by-value-5b_y.c: New, split out from + gcc.dg/compat/struct-by-value-5_y.c. + + * gcc.dg/compat/struct-by-value-6a_main.c, + gcc.dg/compat/struct-by-value-6b_main.c: New files. + * gcc.dg/compat/struct-by-value-6_main.c: Delete. + * gcc.dg/compat/struct-by-value-6a_x.c, + gcc.dg/compat/struct-by-value-6b_x.c: New, split out from + gcc.dg/compat/struct-by-value-6_x.c. + * gcc.dg/compat/struct-by-value-6a_y.c, + gcc.dg/compat/struct-by-value-6b_y.c: New, split out from + gcc.dg/compat/struct-by-value-6_y.c. + + * gcc.dg/compat/struct-by-value-7a_main.c, + gcc.dg/compat/struct-by-value-7b_main.c: New files. + * gcc.dg/compat/struct-by-value-7_main.c: Delete. + * gcc.dg/compat/struct-by-value-7a_x.c, + gcc.dg/compat/struct-by-value-7b_x.c: New, split out from + gcc.dg/compat/struct-by-value-7_x.c. + * gcc.dg/compat/struct-by-value-7a_y.c, + gcc.dg/compat/struct-by-value-7b_y.c: New, split out from + gcc.dg/compat/struct-by-value-7_y.c. + 2004-04-06 Jakub Jelinek * gcc.dg/i386-sse-8.c: Don't use -march=pentium3 on x86_64. diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-5_main.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-5_main.c deleted file mode 100644 index 32eaafbe23b..00000000000 --- a/gcc/testsuite/gcc.dg/compat/struct-by-value-5_main.c +++ /dev/null @@ -1,14 +0,0 @@ -/* Test structures passed by value, including to a function with a - variable-length argument lists. All struct members are float - scalars. */ - -extern void struct_by_value_5_x (void); -extern void exit (int); -int fails; - -int -main () -{ - struct_by_value_5_x (); - exit (0); -} 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 deleted file mode 100644 index e0cbb5782c2..00000000000 --- a/gcc/testsuite/gcc.dg/compat/struct-by-value-5_x.c +++ /dev/null @@ -1,59 +0,0 @@ -#include "compat-common.h" - -#include "fp-struct-defs.h" -#include "fp-struct-check.h" -#include "fp-struct-test-by-value-x.h" - -DEFS(f, float) -CHECKS(f, float) - -TEST(Sf1, float) -TEST(Sf2, float) -TEST(Sf3, float) -TEST(Sf4, float) -TEST(Sf5, float) -TEST(Sf6, float) -TEST(Sf7, float) -TEST(Sf8, float) -TEST(Sf9, float) -TEST(Sf10, float) -TEST(Sf11, float) -TEST(Sf12, float) -TEST(Sf13, float) -TEST(Sf14, float) -TEST(Sf15, float) -TEST(Sf16, float) - -#undef T - -void -struct_by_value_5_x () -{ -DEBUG_INIT - -#define T(TYPE, MTYPE) testit##TYPE (); - -T(Sf1, float) -T(Sf2, float) -T(Sf3, float) -T(Sf4, float) -T(Sf5, float) -T(Sf6, float) -T(Sf7, float) -T(Sf8, float) -T(Sf9, float) -T(Sf10, float) -T(Sf11, float) -T(Sf12, float) -T(Sf13, float) -T(Sf14, float) -T(Sf15, float) -T(Sf16, float) - -DEBUG_FINI - -if (fails != 0) - abort (); - -#undef T -} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-5_y.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-5_y.c deleted file mode 100644 index 224d8409e28..00000000000 --- a/gcc/testsuite/gcc.dg/compat/struct-by-value-5_y.c +++ /dev/null @@ -1,33 +0,0 @@ -#include - -#include "compat-common.h" - -#ifdef SKIP_VA -const int test_va = 0; -#else -const int test_va = 1; -#endif - -#include "fp-struct-defs.h" -#include "fp-struct-init.h" -#include "fp-struct-test-by-value-y.h" - -DEFS(f,float) -INITS(f, float) - -TEST(Sf1, float) -TEST(Sf2, float) -TEST(Sf3, float) -TEST(Sf4, float) -TEST(Sf5, float) -TEST(Sf6, float) -TEST(Sf7, float) -TEST(Sf8, float) -TEST(Sf9, float) -TEST(Sf10, float) -TEST(Sf11, float) -TEST(Sf12, float) -TEST(Sf13, float) -TEST(Sf14, float) -TEST(Sf15, float) -TEST(Sf16, float) diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-5a_main.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-5a_main.c new file mode 100644 index 00000000000..d6f9eff2563 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-5a_main.c @@ -0,0 +1,14 @@ +/* Test structures passed by value, including to a function with a + variable-length argument lists. All struct members are float + scalars. */ + +extern void struct_by_value_5a_x (void); +extern void exit (int); +int fails; + +int +main () +{ + struct_by_value_5a_x (); + exit (0); +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-5a_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-5a_x.c new file mode 100644 index 00000000000..90738a7a7e8 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-5a_x.c @@ -0,0 +1,43 @@ +#include "compat-common.h" + +#include "fp-struct-defs.h" +#include "fp-struct-check.h" +#include "fp-struct-test-by-value-x.h" + +DEFS(f, float) +CHECKS(f, float) + +TEST(Sf1, float) +TEST(Sf2, float) +TEST(Sf3, float) +TEST(Sf4, float) +TEST(Sf5, float) +TEST(Sf6, float) +TEST(Sf7, float) +TEST(Sf8, float) + +#undef T + +void +struct_by_value_5a_x () +{ +DEBUG_INIT + +#define T(TYPE, MTYPE) testit##TYPE (); + +T(Sf1, float) +T(Sf2, float) +T(Sf3, float) +T(Sf4, float) +T(Sf5, float) +T(Sf6, float) +T(Sf7, float) +T(Sf8, float) + +DEBUG_FINI + +if (fails != 0) + abort (); + +#undef T +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-5a_y.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-5a_y.c new file mode 100644 index 00000000000..9ac1f913474 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-5a_y.c @@ -0,0 +1,25 @@ +#include + +#include "compat-common.h" + +#ifdef SKIP_VA +const int test_va = 0; +#else +const int test_va = 1; +#endif + +#include "fp-struct-defs.h" +#include "fp-struct-init.h" +#include "fp-struct-test-by-value-y.h" + +DEFS(f,float) +INITS(f, float) + +TEST(Sf1, float) +TEST(Sf2, float) +TEST(Sf3, float) +TEST(Sf4, float) +TEST(Sf5, float) +TEST(Sf6, float) +TEST(Sf7, float) +TEST(Sf8, float) diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-5b_main.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-5b_main.c new file mode 100644 index 00000000000..dcb5f27ed09 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-5b_main.c @@ -0,0 +1,14 @@ +/* Test structures passed by value, including to a function with a + variable-length argument lists. All struct members are float + scalars. */ + +extern void struct_by_value_5b_x (void); +extern void exit (int); +int fails; + +int +main () +{ + struct_by_value_5b_x (); + exit (0); +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-5b_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-5b_x.c new file mode 100644 index 00000000000..3c371558728 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-5b_x.c @@ -0,0 +1,43 @@ +#include "compat-common.h" + +#include "fp-struct-defs.h" +#include "fp-struct-check.h" +#include "fp-struct-test-by-value-x.h" + +DEFS(f, float) +CHECKS(f, float) + +TEST(Sf9, float) +TEST(Sf10, float) +TEST(Sf11, float) +TEST(Sf12, float) +TEST(Sf13, float) +TEST(Sf14, float) +TEST(Sf15, float) +TEST(Sf16, float) + +#undef T + +void +struct_by_value_5b_x () +{ +DEBUG_INIT + +#define T(TYPE, MTYPE) testit##TYPE (); + +T(Sf9, float) +T(Sf10, float) +T(Sf11, float) +T(Sf12, float) +T(Sf13, float) +T(Sf14, float) +T(Sf15, float) +T(Sf16, float) + +DEBUG_FINI + +if (fails != 0) + abort (); + +#undef T +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-5b_y.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-5b_y.c new file mode 100644 index 00000000000..cedc1660709 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-5b_y.c @@ -0,0 +1,25 @@ +#include + +#include "compat-common.h" + +#ifdef SKIP_VA +const int test_va = 0; +#else +const int test_va = 1; +#endif + +#include "fp-struct-defs.h" +#include "fp-struct-init.h" +#include "fp-struct-test-by-value-y.h" + +DEFS(f,float) +INITS(f, float) + +TEST(Sf9, float) +TEST(Sf10, float) +TEST(Sf11, float) +TEST(Sf12, float) +TEST(Sf13, float) +TEST(Sf14, float) +TEST(Sf15, float) +TEST(Sf16, float) diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-6_main.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-6_main.c deleted file mode 100644 index 39dc31f4a6a..00000000000 --- a/gcc/testsuite/gcc.dg/compat/struct-by-value-6_main.c +++ /dev/null @@ -1,14 +0,0 @@ -/* Test structures passed by value, including to a function with a - variable-length argument lists. All struct members are double - scalars. */ - -extern void struct_by_value_6_x (void); -extern void exit (int); -int fails; - -int -main () -{ - struct_by_value_6_x (); - exit (0); -} 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 deleted file mode 100644 index 21989194cf7..00000000000 --- a/gcc/testsuite/gcc.dg/compat/struct-by-value-6_x.c +++ /dev/null @@ -1,59 +0,0 @@ -#include "compat-common.h" - -#include "fp-struct-defs.h" -#include "fp-struct-check.h" -#include "fp-struct-test-by-value-x.h" - -DEFS(d, double) -CHECKS(d, double) - -TEST(Sd1, double) -TEST(Sd2, double) -TEST(Sd3, double) -TEST(Sd4, double) -TEST(Sd5, double) -TEST(Sd6, double) -TEST(Sd7, double) -TEST(Sd8, double) -TEST(Sd9, double) -TEST(Sd10, double) -TEST(Sd11, double) -TEST(Sd12, double) -TEST(Sd13, double) -TEST(Sd14, double) -TEST(Sd15, double) -TEST(Sd16, double) - -#undef T - -void -struct_by_value_6_x () -{ -DEBUG_INIT - -#define T(TYPE, MTYPE) testit##TYPE (); - -T(Sd1, double) -T(Sd2, double) -T(Sd3, double) -T(Sd4, double) -T(Sd5, double) -T(Sd6, double) -T(Sd7, double) -T(Sd8, double) -T(Sd9, double) -T(Sd10, double) -T(Sd11, double) -T(Sd12, double) -T(Sd13, double) -T(Sd14, double) -T(Sd15, double) -T(Sd16, double) - -DEBUG_FINI - -if (fails != 0) - abort (); - -#undef T -} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-6_y.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-6_y.c deleted file mode 100644 index 4a27b67cc02..00000000000 --- a/gcc/testsuite/gcc.dg/compat/struct-by-value-6_y.c +++ /dev/null @@ -1,33 +0,0 @@ -#include - -#include "compat-common.h" - -#ifdef SKIP_VA -const int test_va = 0; -#else -const int test_va = 1; -#endif - -#include "fp-struct-defs.h" -#include "fp-struct-init.h" -#include "fp-struct-test-by-value-y.h" - -DEFS(d, double) -INITS(d, double) - -TEST(Sd1, double) -TEST(Sd2, double) -TEST(Sd3, double) -TEST(Sd4, double) -TEST(Sd5, double) -TEST(Sd6, double) -TEST(Sd7, double) -TEST(Sd8, double) -TEST(Sd9, double) -TEST(Sd10, double) -TEST(Sd11, double) -TEST(Sd12, double) -TEST(Sd13, double) -TEST(Sd14, double) -TEST(Sd15, double) -TEST(Sd16, double) diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-6a_main.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-6a_main.c new file mode 100644 index 00000000000..609c1d67308 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-6a_main.c @@ -0,0 +1,14 @@ +/* Test structures passed by value, including to a function with a + variable-length argument lists. All struct members are double + scalars. */ + +extern void struct_by_value_6a_x (void); +extern void exit (int); +int fails; + +int +main () +{ + struct_by_value_6a_x (); + exit (0); +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-6a_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-6a_x.c new file mode 100644 index 00000000000..e6852d9c9b7 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-6a_x.c @@ -0,0 +1,43 @@ +#include "compat-common.h" + +#include "fp-struct-defs.h" +#include "fp-struct-check.h" +#include "fp-struct-test-by-value-x.h" + +DEFS(d, double) +CHECKS(d, double) + +TEST(Sd1, double) +TEST(Sd2, double) +TEST(Sd3, double) +TEST(Sd4, double) +TEST(Sd5, double) +TEST(Sd6, double) +TEST(Sd7, double) +TEST(Sd8, double) + +#undef T + +void +struct_by_value_6a_x () +{ +DEBUG_INIT + +#define T(TYPE, MTYPE) testit##TYPE (); + +T(Sd1, double) +T(Sd2, double) +T(Sd3, double) +T(Sd4, double) +T(Sd5, double) +T(Sd6, double) +T(Sd7, double) +T(Sd8, double) + +DEBUG_FINI + +if (fails != 0) + abort (); + +#undef T +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-6a_y.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-6a_y.c new file mode 100644 index 00000000000..8684b53c2f3 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-6a_y.c @@ -0,0 +1,25 @@ +#include + +#include "compat-common.h" + +#ifdef SKIP_VA +const int test_va = 0; +#else +const int test_va = 1; +#endif + +#include "fp-struct-defs.h" +#include "fp-struct-init.h" +#include "fp-struct-test-by-value-y.h" + +DEFS(d, double) +INITS(d, double) + +TEST(Sd1, double) +TEST(Sd2, double) +TEST(Sd3, double) +TEST(Sd4, double) +TEST(Sd5, double) +TEST(Sd6, double) +TEST(Sd7, double) +TEST(Sd8, double) diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-6b_main.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-6b_main.c new file mode 100644 index 00000000000..ff17221718f --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-6b_main.c @@ -0,0 +1,14 @@ +/* Test structures passed by value, including to a function with a + variable-length argument lists. All struct members are double + scalars. */ + +extern void struct_by_value_6b_x (void); +extern void exit (int); +int fails; + +int +main () +{ + struct_by_value_6b_x (); + exit (0); +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-6b_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-6b_x.c new file mode 100644 index 00000000000..5b285c9c5b6 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-6b_x.c @@ -0,0 +1,43 @@ +#include "compat-common.h" + +#include "fp-struct-defs.h" +#include "fp-struct-check.h" +#include "fp-struct-test-by-value-x.h" + +DEFS(d, double) +CHECKS(d, double) + +TEST(Sd9, double) +TEST(Sd10, double) +TEST(Sd11, double) +TEST(Sd12, double) +TEST(Sd13, double) +TEST(Sd14, double) +TEST(Sd15, double) +TEST(Sd16, double) + +#undef T + +void +struct_by_value_6b_x () +{ +DEBUG_INIT + +#define T(TYPE, MTYPE) testit##TYPE (); + +T(Sd9, double) +T(Sd10, double) +T(Sd11, double) +T(Sd12, double) +T(Sd13, double) +T(Sd14, double) +T(Sd15, double) +T(Sd16, double) + +DEBUG_FINI + +if (fails != 0) + abort (); + +#undef T +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-6b_y.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-6b_y.c new file mode 100644 index 00000000000..c568761b241 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-6b_y.c @@ -0,0 +1,25 @@ +#include + +#include "compat-common.h" + +#ifdef SKIP_VA +const int test_va = 0; +#else +const int test_va = 1; +#endif + +#include "fp-struct-defs.h" +#include "fp-struct-init.h" +#include "fp-struct-test-by-value-y.h" + +DEFS(d, double) +INITS(d, double) + +TEST(Sd9, double) +TEST(Sd10, double) +TEST(Sd11, double) +TEST(Sd12, double) +TEST(Sd13, double) +TEST(Sd14, double) +TEST(Sd15, double) +TEST(Sd16, double) diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-7_main.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-7_main.c deleted file mode 100644 index 98caf4286a4..00000000000 --- a/gcc/testsuite/gcc.dg/compat/struct-by-value-7_main.c +++ /dev/null @@ -1,14 +0,0 @@ -/* Test structures passed by value, including to a function with a - variable-length argument lists. All struct members are long double - scalars. */ - -extern void struct_by_value_7_x (void); -extern void exit (int); -int fails; - -int -main () -{ - struct_by_value_7_x (); - exit (0); -} 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 deleted file mode 100644 index 018db252ae4..00000000000 --- a/gcc/testsuite/gcc.dg/compat/struct-by-value-7_x.c +++ /dev/null @@ -1,59 +0,0 @@ -#include "compat-common.h" - -#include "fp-struct-defs.h" -#include "fp-struct-check.h" -#include "fp-struct-test-by-value-x.h" - -DEFS(ld, long double) -CHECKS(ld, long double) - -TEST(Sld1, long double) -TEST(Sld2, long double) -TEST(Sld3, long double) -TEST(Sld4, long double) -TEST(Sld5, long double) -TEST(Sld6, long double) -TEST(Sld7, long double) -TEST(Sld8, long double) -TEST(Sld9, long double) -TEST(Sld10, long double) -TEST(Sld11, long double) -TEST(Sld12, long double) -TEST(Sld13, long double) -TEST(Sld14, long double) -TEST(Sld15, long double) -TEST(Sld16, long double) - -#undef T - -void -struct_by_value_7_x () -{ -DEBUG_INIT - -#define T(TYPE, MTYPE) testit##TYPE (); - -T(Sld1, long double) -T(Sld2, long double) -T(Sld3, long double) -T(Sld4, long double) -T(Sld5, long double) -T(Sld6, long double) -T(Sld7, long double) -T(Sld8, long double) -T(Sld9, long double) -T(Sld10, long double) -T(Sld11, long double) -T(Sld12, long double) -T(Sld13, long double) -T(Sld14, long double) -T(Sld15, long double) -T(Sld16, long double) - -DEBUG_FINI - -if (fails != 0) - abort (); - -#undef T -} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-7_y.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-7_y.c deleted file mode 100644 index 39e46ba8481..00000000000 --- a/gcc/testsuite/gcc.dg/compat/struct-by-value-7_y.c +++ /dev/null @@ -1,33 +0,0 @@ -#include - -#include "compat-common.h" - -#ifdef SKIP_VA -const int test_va = 0; -#else -const int test_va = 1; -#endif - -#include "fp-struct-defs.h" -#include "fp-struct-init.h" -#include "fp-struct-test-by-value-y.h" - -DEFS(ld, long double) -INITS(ld, long double) - -TEST(Sld1, long double) -TEST(Sld2, long double) -TEST(Sld3, long double) -TEST(Sld4, long double) -TEST(Sld5, long double) -TEST(Sld6, long double) -TEST(Sld7, long double) -TEST(Sld8, long double) -TEST(Sld9, long double) -TEST(Sld10, long double) -TEST(Sld11, long double) -TEST(Sld12, long double) -TEST(Sld13, long double) -TEST(Sld14, long double) -TEST(Sld15, long double) -TEST(Sld16, long double) diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-7a_main.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-7a_main.c new file mode 100644 index 00000000000..8379dc563c5 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-7a_main.c @@ -0,0 +1,14 @@ +/* Test structures passed by value, including to a function with a + variable-length argument lists. All struct members are long double + scalars. */ + +extern void struct_by_value_7a_x (void); +extern void exit (int); +int fails; + +int +main () +{ + struct_by_value_7a_x (); + exit (0); +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-7a_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-7a_x.c new file mode 100644 index 00000000000..9818c3c2251 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-7a_x.c @@ -0,0 +1,43 @@ +#include "compat-common.h" + +#include "fp-struct-defs.h" +#include "fp-struct-check.h" +#include "fp-struct-test-by-value-x.h" + +DEFS(ld, long double) +CHECKS(ld, long double) + +TEST(Sld1, long double) +TEST(Sld2, long double) +TEST(Sld3, long double) +TEST(Sld4, long double) +TEST(Sld5, long double) +TEST(Sld6, long double) +TEST(Sld7, long double) +TEST(Sld8, long double) + +#undef T + +void +struct_by_value_7a_x () +{ +DEBUG_INIT + +#define T(TYPE, MTYPE) testit##TYPE (); + +T(Sld1, long double) +T(Sld2, long double) +T(Sld3, long double) +T(Sld4, long double) +T(Sld5, long double) +T(Sld6, long double) +T(Sld7, long double) +T(Sld8, long double) + +DEBUG_FINI + +if (fails != 0) + abort (); + +#undef T +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-7a_y.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-7a_y.c new file mode 100644 index 00000000000..cb53df89dac --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-7a_y.c @@ -0,0 +1,25 @@ +#include + +#include "compat-common.h" + +#ifdef SKIP_VA +const int test_va = 0; +#else +const int test_va = 1; +#endif + +#include "fp-struct-defs.h" +#include "fp-struct-init.h" +#include "fp-struct-test-by-value-y.h" + +DEFS(ld, long double) +INITS(ld, long double) + +TEST(Sld1, long double) +TEST(Sld2, long double) +TEST(Sld3, long double) +TEST(Sld4, long double) +TEST(Sld5, long double) +TEST(Sld6, long double) +TEST(Sld7, long double) +TEST(Sld8, long double) diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-7b_main.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-7b_main.c new file mode 100644 index 00000000000..5d6908bfc1f --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-7b_main.c @@ -0,0 +1,14 @@ +/* Test structures passed by value, including to a function with a + variable-length argument lists. All struct members are long double + scalars. */ + +extern void struct_by_value_7b_x (void); +extern void exit (int); +int fails; + +int +main () +{ + struct_by_value_7b_x (); + exit (0); +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-7b_x.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-7b_x.c new file mode 100644 index 00000000000..508ff616584 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-7b_x.c @@ -0,0 +1,43 @@ +#include "compat-common.h" + +#include "fp-struct-defs.h" +#include "fp-struct-check.h" +#include "fp-struct-test-by-value-x.h" + +DEFS(ld, long double) +CHECKS(ld, long double) + +TEST(Sld9, long double) +TEST(Sld10, long double) +TEST(Sld11, long double) +TEST(Sld12, long double) +TEST(Sld13, long double) +TEST(Sld14, long double) +TEST(Sld15, long double) +TEST(Sld16, long double) + +#undef T + +void +struct_by_value_7b_x () +{ +DEBUG_INIT + +#define T(TYPE, MTYPE) testit##TYPE (); + +T(Sld9, long double) +T(Sld10, long double) +T(Sld11, long double) +T(Sld12, long double) +T(Sld13, long double) +T(Sld14, long double) +T(Sld15, long double) +T(Sld16, long double) + +DEBUG_FINI + +if (fails != 0) + abort (); + +#undef T +} diff --git a/gcc/testsuite/gcc.dg/compat/struct-by-value-7b_y.c b/gcc/testsuite/gcc.dg/compat/struct-by-value-7b_y.c new file mode 100644 index 00000000000..cc70a7d2925 --- /dev/null +++ b/gcc/testsuite/gcc.dg/compat/struct-by-value-7b_y.c @@ -0,0 +1,25 @@ +#include + +#include "compat-common.h" + +#ifdef SKIP_VA +const int test_va = 0; +#else +const int test_va = 1; +#endif + +#include "fp-struct-defs.h" +#include "fp-struct-init.h" +#include "fp-struct-test-by-value-y.h" + +DEFS(ld, long double) +INITS(ld, long double) + +TEST(Sld9, long double) +TEST(Sld10, long double) +TEST(Sld11, long double) +TEST(Sld12, long double) +TEST(Sld13, long double) +TEST(Sld14, long double) +TEST(Sld15, long double) +TEST(Sld16, long double)