Sign in
gnu
/
gcc
/
e5cfb9cac1d7aba9a8ea73bfe7922cfaff9d61f3
/
.
/
gcc
/
testsuite
/
gcc.dg
/
pr21921.c
blob: d6a8a2a94bf12f3426cc30432b6745c253e23daf [
file
] [
log
] [
blame
]
/* { dg-do compile } */
/* { dg-options "-O1 -funsafe-math-optimizations" } */
void
Q
(
double
*
s
,
double
h
)
{
int
i
;
if
(
h
>
1
)
h
=
h
-
1
;
for
(
i
=
1
;
i
<
3
;
i
++)
if
(
s
[
i
]
/
h
>
0
)
s
[
0
]
=
h
,
s
[
i
]
=
s
[
i
]
/
h
;
}