OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* gcc.c-torture/execute/20060420-1.c: Fix alignment logic.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
20020720-1.c
1
/* Copyright (C) 2002 Free Software Foundation.
2
3
Ensure that fabs(x) < 0.0 optimization is working.
4
5
Written by Roger Sayle, 20th July 2002. */
6
7
extern void abort (void);
8
extern double fabs (double);
9
extern void link_error (void);
10
11
void
12
foo (double x)
13
{
14
double p, q;
15
16
p = fabs (x);
17
q = 0.0;
18
if (p < q)
19
link_error ();
20
}
21
22
int
23
main()
24
{
25
foo (1.0);
26
return 0;
27
}
28
29
#ifndef __OPTIMIZE__
30
void
31
link_error ()
32
{
33
abort ();
34
}
35
#endif
36