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
PR testsuite/52641
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.dg
/
tree-ssa
/
pr23115.c
blob
61408e47a8094a3714b356a7e0f87a7c08f11ab5
1
/* { dg-do run } */
2
/* { dg-options "-O2 -ftree-vectorize" } */
3
4
extern
void
abort
(
void
);
5
6
#define MIN2(a,b) (((a)<(b)) ? (a) : (b))
7
#define MAX2(a,b) (((a)>(b)) ? (a) : (b))
8
9
double
p
[
2
] = {
4
.,
5
. };
10
11
int
main
()
12
{
13
long
j
;
14
double
R
,
n
,
x
;
15
#if __SIZEOF_DOUBLE__ >= 8
16
n
=
1
.
e300
;
17
x
= -
1
.
e300
;
18
#else
19
n
=
1
.
e30
;
20
x
= -
1
.
e30
;
21
#endif
22
for
(
j
=
0
;
j
<
2
;
j
++ )
23
{
24
x
=
MAX2
(
x
,
p
[
j
]);
25
n
=
MIN2
(
n
,
p
[
j
]);
26
}
27
R
=
x
-
n
;
28
29
if
(
R
<
0.1
)
30
abort
();
31
32
return
0
;
33
}