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
Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git]
/
old-autovect-branch
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
ieee
/
20030331-1.c
blob
64d87e13b68065c33957bf85602f549ab2de2c55
1
extern
void
exit
(
int
);
2
extern
void
abort
(
void
);
3
float
x
= -
1.5
f
;
4
5
float
6
rintf
()
7
{
8
static const float
TWO23
=
8388608.0
;
9
10
if
(
__builtin_fabs
(
x
) <
TWO23
)
11
{
12
if
(
x
>
0.0
)
13
{
14
x
+=
TWO23
;
15
x
-=
TWO23
;
16
}
17
else if
(
x
<
0.0
)
18
{
19
x
=
TWO23
-
x
;
20
x
= -(
x
-
TWO23
);
21
}
22
}
23
24
return
x
;
25
}
26
27
int
main
(
void
)
28
{
29
if
(
rintf
() != -
2.0
)
30
abort
();
31
exit
(
0
);
32
}