Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gcc.c-torture/execute/ieee/mzero5.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* Test gcse handling of IEEE 0/-0 rules. */
kono
parents:
diff changeset
2 static double zero = 0.0;
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 int
kono
parents:
diff changeset
5 negzero_check (double d)
kono
parents:
diff changeset
6 {
kono
parents:
diff changeset
7 if (d == 0)
kono
parents:
diff changeset
8 return !!memcmp ((void *)&zero, (void *)&d, sizeof (double));
kono
parents:
diff changeset
9 return 0;
kono
parents:
diff changeset
10 }
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 int
kono
parents:
diff changeset
13 sub (double d, double e)
kono
parents:
diff changeset
14 {
kono
parents:
diff changeset
15 if (d == 0.0 && e == 0.0
kono
parents:
diff changeset
16 && negzero_check (d) == 0 && negzero_check (e) == 0)
kono
parents:
diff changeset
17 return 1;
kono
parents:
diff changeset
18 else
kono
parents:
diff changeset
19 return 0;
kono
parents:
diff changeset
20 }
kono
parents:
diff changeset
21
kono
parents:
diff changeset
22 int
kono
parents:
diff changeset
23 main (void)
kono
parents:
diff changeset
24 {
kono
parents:
diff changeset
25 double minus_zero = -0.0;
kono
parents:
diff changeset
26 if (sub (minus_zero, 0))
kono
parents:
diff changeset
27 abort ();
kono
parents:
diff changeset
28 return 0;
kono
parents:
diff changeset
29 }