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
2018-01-24 Richard Biener <rguenther@suse.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
960513-1.c
blob
acc263ca6c83cdfe6a99c002cf9661c845b856b5
1
long double
2
f
(
d
,
i
)
3
long double
d
;
4
int
i
;
5
{
6
long double
e
;
7
8
d
= -
d
;
9
e
=
d
;
10
if
(
i
==
1
)
11
d
*=
2
;
12
d
-=
e
*
d
;
13
d
-=
e
*
d
;
14
d
-=
e
*
d
;
15
d
-=
e
*
d
;
16
d
-=
e
*
d
;
17
return
d
;
18
}
19
20
main
()
21
{
22
if
(! (
int
) (
f
(
2.0L
,
1
)))
23
abort
();
24
exit
(
0
);
25
}