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, 62 insertions, 0 deletions

diff --git a/gcc/testsuite/gcc.dg/fixed-point/union-init.c b/gcc/testsuite/gcc.dg/fixed-point/union-init.c
new file mode 100644
index 000000000..126cc9e72
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/fixed-point/union-init.c
@@ -0,0 +1,62 @@
+/* { dg-do run } */
+/* { dg-options "-std=gnu99" } */
+
+/* Cast to union is a GNU C extension.
+   Based on the test from ../dfp/.  */
+
+extern void abort (void);
+
+union u
+{
+  long _Fract lf;
+  double d;
+};
+
+union n
+{
+  double d;
+  _Fract f;
+};
+
+int main ()
+{
+  static union u u1 = { 0.1lr };
+  static union u u2 = { 0.2lr };
+  static union u u4 = { 0.0 };
+
+  static union n n1 = { 0.3r };
+  static union n n2 = { 3.25 };
+
+  long _Fract lf;
+  _Fract f;
+  double d;
+
+  if (u1.lf != 0.1lr)
+    abort ();
+
+  if (u2.lf != 0.2lr)
+    abort ();
+
+  /* cast fixed-point to union type.  */
+  lf = 0.4lr;
+  f = 0.5r;
+  d = 3.25;
+
+  u4 = (union u) lf;
+  if (u4.lf != 0.4lr)
+    abort ();
+
+  u4 = (union u) d;
+  if (u4.d != 3.25)
+    abort ();
+
+  n1 = (union n) f;
+  if (n1.f != 0.5r)
+    abort ();
+
+  n1 = (union n)d;
+  if (n1.d != 3.25)
+    abort ();
+
+  return 0;
+}