From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; 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. --- gcc/testsuite/gcc.dg/fixed-point/union-init.c | 62 +++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100644 gcc/testsuite/gcc.dg/fixed-point/union-init.c (limited to 'gcc/testsuite/gcc.dg/fixed-point/union-init.c') 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; +} -- cgit v1.2.3