blob: 5f1be13223a1cc030ce235d2c8a8a43835ecfd1a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
/* { dg-do run } */
/* { dg-options "-std=gnu99" } */
/* C99 6.5.2.2 Function calls.
Test structure passing and return values involving decimal floating
point types. */
extern void abort (void);
struct example
{
_Decimal128 d128;
char dummy1;
_Decimal64 d64;
char dummy2;
_Decimal32 d32;
} nums = { 1.0dl, 'a', 2.0dd, 'b', 3.0df };
_Decimal32
d32_field (struct example s)
{
return s.d32;
}
_Decimal64
d64_field (struct example s)
{
return s.d64;
}
_Decimal128
d128_field (struct example s)
{
return s.d128;
}
char
dummy1_field (struct example s)
{
return s.dummy1;
}
char
dummy2_field (struct example s)
{
return s.dummy2;
}
_Decimal32
ptr_d32_field (struct example *s)
{
return s->d32;
}
_Decimal64
ptr_d64_field (struct example *s)
{
return s->d64;
}
_Decimal128
ptr_d128_field (struct example *s)
{
return s->d128;
}
char
ptr_dummy1_field (struct example *s)
{
return s->dummy1;
}
char
ptr_dummy2_field (struct example *s)
{
return s->dummy2;
}
int
main ()
{
if (d32_field (nums) != 3.0df) abort ();
if (d64_field (nums) != 2.0dd) abort ();
if (d128_field (nums) != 1.0dl) abort ();
if (dummy1_field (nums) != 'a') abort ();
if (dummy2_field (nums) != 'b') abort ();
if (ptr_d32_field (&nums) != 3.0df) abort ();
if (ptr_d64_field (&nums) != 2.0dd) abort ();
if (ptr_d128_field (&nums) != 1.0dl) abort ();
if (ptr_dummy1_field (&nums) != 'a') abort ();
if (ptr_dummy2_field (&nums) != 'b') abort ();
return 0;
}
|
