OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PR testsuite/41288
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
c-c++-common
/
dfp
/
pr39035.c
1
/* { dg-do run } */
2
/* { dg-options "-O" } */
3
4
/* DFP TR 24732 == WG14 / N1176, N1312 */
5
/* Based on a test from Fred Tydeman. */
6
7
#include "dfp-dbg.h"
8
9
/* Test runtime computations. */
10
11
void
12
runtime32 (void)
13
{
14
volatile _Decimal32 d;
15
d = 0.0DF;
16
if (d)
17
FAILURE
18
}
19
20
void
21
runtime64 (void)
22
{
23
volatile _Decimal64 d;
24
d = 0.0DD;
25
if (d)
26
FAILURE
27
}
28
29
void
30
runtime128 (void)
31
{
32
volatile _Decimal128 d;
33
d = 0.0DL;
34
if (d)
35
FAILURE
36
}
37
38
void
39
fold32 (void)
40
{
41
if (0.0DF)
42
FAILURE
43
}
44
45
void
46
fold64 (void)
47
{
48
if (0.0DD)
49
FAILURE
50
}
51
52
void
53
fold128 (void)
54
{
55
if (0.0DL)
56
FAILURE
57
}
58
59
int
60
main(void)
61
{
62
runtime32 ();
63
runtime64 ();
64
runtime128 ();
65
66
fold32 ();
67
fold64 ();
68
fold128 ();
69
70
FINISH
71
}