obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 93 insertions, 0 deletions

diff --git a/gcc/testsuite/c-c++-common/dfp/func-struct.c b/gcc/testsuite/c-c++-common/dfp/func-struct.c
new file mode 100644
index 000000000..ad0224d6c
--- /dev/null
+++ b/gcc/testsuite/c-c++-common/dfp/func-struct.c
@@ -0,0 +1,93 @@
+/* C99 6.5.2.2 Function calls.
+   Test structure passing and return values involving decimal floating
+   point types.  */
+
+#include "dfp-dbg.h"
+
+struct example
+{
+  _Decimal128 d128;
+  char dummy1;
+  _Decimal64 d64;
+  char dummy2;
+  _Decimal32 d32;
+} nums = { 1.0dl, 'a', 2.0dd, 'b', 3.0df };
+
+_Decimal32
+d32_field (struct example s)
+{
+  return s.d32;
+}
+
+_Decimal64
+d64_field (struct example s)
+{
+  return s.d64;
+}
+
+_Decimal128
+d128_field (struct example s)
+{
+  return s.d128;
+}
+
+char
+dummy1_field (struct example s)
+{
+  return s.dummy1;
+}
+
+char
+dummy2_field (struct example s)
+{
+  return s.dummy2;
+}
+
+_Decimal32
+ptr_d32_field (struct example *s)
+{
+  return s->d32;
+}
+
+_Decimal64
+ptr_d64_field (struct example *s)
+{
+  return s->d64;
+}
+
+_Decimal128
+ptr_d128_field (struct example *s)
+{
+  return s->d128;
+}
+
+char
+ptr_dummy1_field (struct example *s)
+{
+  return s->dummy1;
+}
+
+char
+ptr_dummy2_field (struct example *s)
+{
+  return s->dummy2;
+}
+
+
+int
+main ()
+{
+  if (d32_field (nums) != 3.0df) FAILURE
+  if (d64_field (nums) != 2.0dd) FAILURE
+  if (d128_field (nums) != 1.0dl) FAILURE
+  if (dummy1_field (nums) != 'a') FAILURE
+  if (dummy2_field (nums) != 'b') FAILURE
+
+  if (ptr_d32_field (&nums) != 3.0df) FAILURE
+  if (ptr_d64_field (&nums) != 2.0dd) FAILURE
+  if (ptr_d128_field (&nums) != 1.0dl) FAILURE
+  if (ptr_dummy1_field (&nums) != 'a') FAILURE
+  if (ptr_dummy2_field (&nums) != 'b') FAILURE
+
+  FINISH
+}