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
/
20020413-1.c
blob
fdef9eed7d57cc26a1bd6235da0933f6b92cafa1
1
void
test
(
long double
val
,
int
*
eval
)
2
{
3
long double
tmp
=
1.0l
;
4
int
i
=
0
;
5
6
if
(
val
<
0.0l
)
7
val
= -
val
;
8
9
if
(
val
>=
tmp
)
10
while
(
tmp
<
val
)
11
{
12
tmp
*=
2.0l
;
13
if
(
i
++ >=
10
)
14
abort
();
15
}
16
else if
(
val
!=
0.0l
)
17
while
(
val
<
tmp
)
18
{
19
tmp
/=
2.0l
;
20
if
(
i
++ >=
10
)
21
abort
();
22
}
23
24
*
eval
=
i
;
25
}
26
27
int
main
(
void
)
28
{
29
int
eval
;
30
31
test
(
3.0
, &
eval
);
32
test
(
3.5
, &
eval
);
33
test
(
4.0
, &
eval
);
34
test
(
5.0
, &
eval
);
35
exit
(
0
);
36
}