aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gcc.dg/fixed-point/union-init.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gcc.dg/fixed-point/union-init.c')
-rw-r--r--gcc-4.9/gcc/testsuite/gcc.dg/fixed-point/union-init.c62
1 files changed, 62 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gcc.dg/fixed-point/union-init.c b/gcc-4.9/gcc/testsuite/gcc.dg/fixed-point/union-init.c
new file mode 100644
index 000000000..126cc9e72
--- /dev/null
+++ b/gcc-4.9/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;
+}