1 // Copyright (C) 2009-2018 Free Software Foundation, Inc.
3 // This file is part of the GNU ISO C++ Library. This library is free
4 // software; you can redistribute it and/or modify it under the
5 // terms of the GNU General Public License as published by the
6 // Free Software Foundation; either version 3, or (at your option)
9 // This library is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 // GNU General Public License for more details.
14 // You should have received a copy of the GNU General Public License along
15 // with this library; see the file COPYING3. If not see
16 // <http://www.gnu.org/licenses/>.
18 // { dg-require-effective-target dfp }
20 // ISO/IEC TR 24733 3.2.2.4 Conversion to integral type (decimal32).
21 // ISO/IEC TR 24733 3.2.3.4 Conversion to integral type (decimal64).
22 // ISO/IEC TR 24733 3.2.4.4 Conversion to integral type (decimal128).
24 #include <decimal/decimal>
26 #include <testsuite_hooks.h>
28 // Use extension to replace implicit long long conversion with function call.
29 #define LONGLONG(X) decimal_to_long_long(X)
31 using namespace std::decimal
;
34 conversion_to_integral_32 (void)
37 #define MAXVAL 999999LL
38 decimal32 a
, b (1), c (-1), d (MAXVAL
), e (-MAXVAL
);
41 ll
= LONGLONG (a
); VERIFY (ll
== 0LL);
42 ll
= LONGLONG (b
); VERIFY (ll
== 1LL);
43 ll
= LONGLONG (c
); VERIFY (ll
== -1LL);
44 ll
= LONGLONG (d
); VERIFY (ll
== MAXVAL
);
45 ll
= LONGLONG (e
); VERIFY (ll
== -MAXVAL
);
49 conversion_to_integral_64 (void)
52 #define MAXVAL 999999999999999LL
53 decimal64 a
, b (1), c (-1), d (MAXVAL
), e (-MAXVAL
);
56 ll
= LONGLONG (a
); VERIFY (ll
== 0LL);
57 ll
= LONGLONG (b
); VERIFY (ll
== 1LL);
58 ll
= LONGLONG (c
); VERIFY (ll
== -1LL);
59 ll
= LONGLONG (d
); VERIFY (ll
== MAXVAL
);
60 ll
= LONGLONG (e
); VERIFY (ll
== -MAXVAL
);
64 conversion_to_integral_128 (void)
67 #define MAXVAL __LONG_LONG_MAX__
68 decimal128 a
, b (1), c (-1), d (MAXVAL
), e (-MAXVAL
);
71 ll
= LONGLONG (a
); VERIFY (ll
== 0LL);
72 ll
= LONGLONG (b
); VERIFY (ll
== 1LL);
73 ll
= LONGLONG (c
); VERIFY (ll
== -1LL);
74 ll
= LONGLONG (d
); VERIFY (ll
== MAXVAL
);
75 ll
= LONGLONG (e
); VERIFY (ll
== -MAXVAL
);
81 conversion_to_integral_32 ();
82 conversion_to_integral_64 ();
83 conversion_to_integral_128 ();