1/* { dg-do compile } */
2
3/* Test various conversions involving decimal floating types. */
4
5#include "dfp-dbg.h"
6
7/* Assertion that constant C is of type T.  */
8#define ASSERT_CONST_TYPE(C, T)                 \
9        do {                                    \
10          typedef T type;                       \
11          typedef type **typepp;                \
12          typedef __typeof__((C)) ctype;        \
13          typedef ctype **ctypepp;              \
14          typepp x = 0;                         \
15          ctypepp y = 0;                        \
16          x = y;                                \
17          y = x;                                \
18        } while (0)
19
20int
21main ()
22{
23  ASSERT_CONST_TYPE (3 + 2.1df, _Decimal32); /* { dg-bogus "assignment from incompatible pointer type" } */
24  ASSERT_CONST_TYPE (1.3df + 2, _Decimal32); /* { dg-bogus "assignment from incompatible pointer type" } */
25  ASSERT_CONST_TYPE (56U - 55.0dd, _Decimal64); /* { dg-bogus "assignment from incompatible pointer type" } */
26  ASSERT_CONST_TYPE (5 * .2DL, _Decimal128); /* { dg-bogus "assignment from incompatible pointer type" } */
27  ASSERT_CONST_TYPE (.88dl / 2L, _Decimal128); /* { dg-bogus "assignment from incompatible pointer type" } */
28  ASSERT_CONST_TYPE (.114df - 1.6dd, _Decimal64); /* { dg-bogus "assignment from incompatible pointer type" } */
29  ASSERT_CONST_TYPE (3L - 1 + .55df, _Decimal32); /* { dg-bogus "assignment from incompatible pointer type" } */
30
31  return 0;
32}
33