Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.c-torture/compile/20080704-1.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* This code used to crash fold_convert due to PRE wanting to fold_convert from a REAL_TYPE to an INTEGER_TYPE. */ typedef unsigned int uint32_t; union double_union { double d; uint32_t i[2]; }; struct _Jv_reent { int _errno; }; _Jv_strtod_r (struct _Jv_reent *ptr, char **se) { int bb2, sign; double aadj, aadj1, adj; unsigned long y, z; union double_union rv, *bs = ((void *) 0), *delta = ((void *) 0); { ovfl:ptr->_errno = 34; { (((uint32_t) 0xfffffL) | ((uint32_t) 0x100000L) * (1024 + 1023 - 1)); } if ((aadj = _Jv_ratio (delta, bs)) <= 2.) { { if (aadj < 2. / 2) aadj = 1. / 2; aadj1 = -aadj; } } { (rv.i[1]) -= 53 * ((uint32_t) 0x100000L); adj = aadj1 * _Jv_ulp (rv.d); rv.d += adj; if (((rv.i[1]) & ((uint32_t) 0x7ff00000L)) >= ((uint32_t) 0x100000L) * (1024 + 1023 - 53)) { goto ovfl; } } } }