re PR fortran/66245 (ICE on select type with empty type spec)
[official-gcc.git] / libgcc / floatunsidf.c
blobff28112502b7e95cb4a66dc99a2c91e6aec7e595
1 /* Public domain. */
2 typedef int SItype __attribute__ ((mode (SI)));
3 typedef unsigned int USItype __attribute__ ((mode (SI)));
4 typedef float DFtype __attribute__ ((mode (DF)));
6 DFtype
7 __floatunsidf (USItype u)
9 SItype s = (SItype) u;
10 DFtype r = (DFtype) s;
11 if (s < 0)
12 r += (DFtype)2.0 * (DFtype) ((USItype) 1
13 << (sizeof (USItype) * __CHAR_BIT__ - 1));
14 return r;