repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
libquadmath: Fix up libquadmath/math/sqrtq.c compilation in some powerpc* configurati...
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
ieee
/
20010114-2.c
blob
e5ab9485ffe02a0e230160cbfa12e8bd286473d2
1
extern
void
exit
(
int
);
2
extern
void
abort
(
void
);
3
4
float
5
rintf
(
float
x
)
6
{
7
static const float
TWO23
=
8388608.0
;
8
9
if
(
__builtin_fabs
(
x
) <
TWO23
)
10
{
11
if
(
x
>
0.0
)
12
{
13
x
+=
TWO23
;
14
x
-=
TWO23
;
15
}
16
else if
(
x
<
0.0
)
17
{
18
x
=
TWO23
-
x
;
19
x
= -(
x
-
TWO23
);
20
}
21
}
22
23
return
x
;
24
}
25
26
int
main
(
void
)
27
{
28
if
(
rintf
(-
1.5
) != -
2.0
)
29
abort
();
30
exit
(
0
);
31
}