blob: 58523b6ab02479a5849ae509da9f8f97d12cf837 (
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
|
/* { dg-options "-std=gnu99 -O0" } */
/* C99 6.5.8 Relational operators.
Compare decimal float values against variables of different types. */
extern void abort (void);
static int failcnt;
/* Support compiling the test to report individual failures; default is
to abort as soon as a check fails. */
#ifdef DBG
#include <stdio.h>
#define FAILURE { printf ("failed at line %d\n", __LINE__); failcnt++; }
#else
#define FAILURE abort ();
#endif
_Decimal32 d32;
_Decimal64 d64;
_Decimal128 d128;
/* Use some typedefs of decimal float types, too. */
typedef _Decimal32 SDtype;
typedef _Decimal64 DDtype;
typedef _Decimal128 TDtype;
SDtype d32b;
DDtype d64b;
TDtype d128b;
void
inits (void)
{
d32 = 1.0df;
d64 = 3.0dd;
d128 = 5.0dl;
d32b = -1.0df;
d64b = -4.0dd;
d128b = -6.0dl;
}
void
compare_dfp (void)
{
if ((d32 > d64) != 0) FAILURE
if ((d32 >= d128b) != 1) FAILURE
if ((d64 < d32) != 0) FAILURE
if ((d64 <= d128) != 1) FAILURE
if ((d128 > d32) != 1) FAILURE
if ((d128 >= d64) != 1) FAILURE
}
int
main ()
{
inits ();
compare_dfp ();
if (failcnt)
abort ();
return 0;
}
|
