maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Fix bad new test, and fix detection of test failures in that test too 

Original-commit: flang-compiler/f18@38ec2a879b
Reviewed-on: https://github.com/flang-compiler/f18/pull/787
This commit is contained in:
peter klausler 2019-10-22 15:28:26 -07:00
parent 26334a9e1b
commit 7aea2f6cb9
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
flang/test/evaluate/uint128.cc
View File

@ -19,12 +19,11 @@
#include <iostream>
#if (defined __GNUC__ || defined __clang__) && defined __SIZEOF_INT128__
# define HAS_NATIVE_UINT128_T 1
#define HAS_NATIVE_UINT128_T 1
#else
# undef HAS_NATIVE_UINT128_T
#undef HAS_NATIVE_UINT128_T
#endif
using U128 = Fortran::common::UnsignedInt128;
static void Test(std::uint64_t x) {
@ -66,11 +65,13 @@ static void Test(std::uint64_t x, std::uint64_t y) {
#if HAS_NATIVE_UINT128_T
static __uint128_t ToNative(U128 n) {
return static_cast<__uint128_t>(static_cast<std::uint64_t>(n >> 64)) << 64 | static_cast<std::uint64_t>(n);
return static_cast<__uint128_t>(static_cast<std::uint64_t>(n >> 64)) << 64 |
static_cast<std::uint64_t>(n);
}
static U128 FromNative(__uint128_t n) {
return U128{static_cast<std::uint64_t>(n >> 64)} << 64 | U128{static_cast<std::uint64_t>(n)};
return U128{static_cast<std::uint64_t>(n >> 64)} << 64 |
U128{static_cast<std::uint64_t>(n)};
}
static void TestVsNative(__uint128_t x, __uint128_t y) {
@ -80,12 +81,12 @@ static void TestVsNative(__uint128_t x, __uint128_t y) {
TEST(ToNative(~m) == ~x);
TEST(ToNative(-m) == -x);
TEST(ToNative(!m) == !x);
TEST(ToNative(m < n) == (x < y));
TEST(ToNative(m < n) == (x < y));
TEST(ToNative(m <= n) == (x <= y));
TEST(ToNative(m == n) == (x == y));
TEST(ToNative(m != n) == (x != y));
TEST(ToNative(m >= n) == (x >= y));
TEST(ToNative(m > n) == (x > y));
TEST(ToNative(m > n) == (x > y));
TEST(ToNative(m & n) == (x & y));
TEST(ToNative(m | n) == (x | y));
TEST(ToNative(m ^ n) == (x ^ y));
@ -99,7 +100,7 @@ static void TestVsNative(__uint128_t x, __uint128_t y) {
if (y > 0) {
TEST(ToNative(m / n) == (x / y));
TEST(ToNative(m % n) == (x % y));
TEST(ToNative(m - n * (m / n)) == (x / y));
TEST(ToNative(m - n * (m / n)) == (x % y));
}
}
@ -141,5 +142,5 @@ int main() {
#else
std::cout << "Environment lacks native __uint128_t\n";
#endif
testing::Complete();
return testing::Complete();
}