]> gcc.gnu.org Git - gcc.git/blame - libgcc/floatunsitf.c
re PR fortran/83057 (OPEN without a filename and without STATUS='SCRATCH' could produ...
[gcc.git] / libgcc / floatunsitf.c
CommitLineData
2a3ebe77
JM
1/* Public domain. */
2typedef int SItype __attribute__ ((mode (SI)));
3typedef unsigned int USItype __attribute__ ((mode (SI)));
4typedef float TFtype __attribute__ ((mode (TF)));
5
6TFtype
7__floatunsitf (USItype u)
8{
9 SItype s = (SItype) u;
10 TFtype r = (TFtype) s;
11 if (s < 0)
12 r += (TFtype)2.0 * (TFtype) ((USItype) 1
13 << (sizeof (USItype) * __CHAR_BIT__ - 1));
14 return r;
15}
This page took 1.982288 seconds and 5 git commands to generate.