Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/c-c++-common/dfp/loop-index.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 /* C99 6.8.5.2: The for statement. */
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 #include <stdio.h>
kono
parents:
diff changeset
4 #include <stdlib.h>
kono
parents:
diff changeset
5 #include "dfp-dbg.h"
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 void
kono
parents:
diff changeset
8 f32 (void)
kono
parents:
diff changeset
9 {
kono
parents:
diff changeset
10 _Decimal32 d;
kono
parents:
diff changeset
11 int i;
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 for (d = 1.1df, i=0; d <= 1.5df; d += 0.1df)
kono
parents:
diff changeset
14 i++;
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 if (i != 5)
kono
parents:
diff changeset
17 FAILURE
kono
parents:
diff changeset
18 }
kono
parents:
diff changeset
19
kono
parents:
diff changeset
20 void
kono
parents:
diff changeset
21 f64 (void)
kono
parents:
diff changeset
22 {
kono
parents:
diff changeset
23 _Decimal64 d;
kono
parents:
diff changeset
24 int i;
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 for (d = 1.1dd, i=0; d <= 1.5dd; d += 0.1dd)
kono
parents:
diff changeset
27 i++;
kono
parents:
diff changeset
28
kono
parents:
diff changeset
29 if (i != 5)
kono
parents:
diff changeset
30 FAILURE
kono
parents:
diff changeset
31 }
kono
parents:
diff changeset
32
kono
parents:
diff changeset
33 void
kono
parents:
diff changeset
34 f128 (void)
kono
parents:
diff changeset
35 {
kono
parents:
diff changeset
36 _Decimal128 d;
kono
parents:
diff changeset
37 int i;
kono
parents:
diff changeset
38
kono
parents:
diff changeset
39 for (d = 1.1dl, i=0; d <= 1.5dl; d += 0.1dl)
kono
parents:
diff changeset
40 i++;
kono
parents:
diff changeset
41
kono
parents:
diff changeset
42 if (i != 5)
kono
parents:
diff changeset
43 FAILURE
kono
parents:
diff changeset
44 }
kono
parents:
diff changeset
45
kono
parents:
diff changeset
46 int
kono
parents:
diff changeset
47 main ()
kono
parents:
diff changeset
48 {
kono
parents:
diff changeset
49 int i;
kono
parents:
diff changeset
50
kono
parents:
diff changeset
51 f32 ();
kono
parents:
diff changeset
52 f64 ();
kono
parents:
diff changeset
53 f128 ();
kono
parents:
diff changeset
54
kono
parents:
diff changeset
55 FINISH
kono
parents:
diff changeset
56 return (0);
kono
parents:
diff changeset
57 }