Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/c-c++-common/dfp/operator-comma.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* { dg-options "-O0" } */
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 /* C99 6.5.17: Comma operator.
kono
parents:
diff changeset
4 Test with decimal float operands. */
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 #include "dfp-dbg.h"
kono
parents:
diff changeset
7
kono
parents:
diff changeset
8 volatile _Decimal32 d32a, d32b, d32c;
kono
parents:
diff changeset
9 volatile _Decimal64 d64a, d64b, d64c;
kono
parents:
diff changeset
10 volatile _Decimal128 d128a, d128b, d128c;
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 void
kono
parents:
diff changeset
13 init ()
kono
parents:
diff changeset
14 {
kono
parents:
diff changeset
15 d32b = 123.456e94df;
kono
parents:
diff changeset
16 d64b = 12.3456789012345e383dd;
kono
parents:
diff changeset
17 d128b = 12345.6789012345678901e4000dl;
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 d32c = 1.3df;
kono
parents:
diff changeset
20 d64c = 1.2dd;
kono
parents:
diff changeset
21 d128c = 1.1dl;
kono
parents:
diff changeset
22 }
kono
parents:
diff changeset
23
kono
parents:
diff changeset
24 int
kono
parents:
diff changeset
25 main ()
kono
parents:
diff changeset
26 {
kono
parents:
diff changeset
27 init ();
kono
parents:
diff changeset
28
kono
parents:
diff changeset
29 d32a = (d32b, d32c);
kono
parents:
diff changeset
30 if (d32a != d32c)
kono
parents:
diff changeset
31 FAILURE
kono
parents:
diff changeset
32 d64a = (d64b, 7.89dd, d64c);
kono
parents:
diff changeset
33 if (d64a != d64c)
kono
parents:
diff changeset
34 FAILURE
kono
parents:
diff changeset
35 d128a = (45678.987654dl, d128c, d128b);
kono
parents:
diff changeset
36 if (d128a != d128b)
kono
parents:
diff changeset
37 FAILURE
kono
parents:
diff changeset
38 d128a = (d32b, d64b, d128b);
kono
parents:
diff changeset
39 if (d128a != d128b)
kono
parents:
diff changeset
40 FAILURE
kono
parents:
diff changeset
41 d32a = (d32b, 12, d64c);
kono
parents:
diff changeset
42 if (d32a != d64c)
kono
parents:
diff changeset
43 FAILURE;
kono
parents:
diff changeset
44 d64a = (d64b, d32b, 12);
kono
parents:
diff changeset
45 if (d64a != 12.0dd)
kono
parents:
diff changeset
46 FAILURE;
kono
parents:
diff changeset
47
kono
parents:
diff changeset
48 FINISH
kono
parents:
diff changeset
49 }