URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gcc.dg/] [fixed-point/] [union-init.c] - Rev 384
Compare with Previous | Blame | View Log
/* { 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; }