From 35d149e34caabc8ca77ef908d6024f32d84b7ff4 Mon Sep 17 00:00:00 2001 From: Pedro Caldeira Date: Fri, 21 Aug 2020 17:52:34 -0500 Subject: Add missing functions for Packet8bf in Altivec architecture. Including new tests for bfloat16 Packets. Fix prsqrt on GenericPacketMath. --- test/packetmath.cpp | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 99 insertions(+), 2 deletions(-) (limited to 'test/packetmath.cpp') diff --git a/test/packetmath.cpp b/test/packetmath.cpp index c8ea3139e..3d8fbafc7 100644 --- a/test/packetmath.cpp +++ b/test/packetmath.cpp @@ -707,6 +707,62 @@ void packetmath_real() { } } +#define CAST_CHECK_CWISE1_IF(COND, REFOP, POP, SCALAR, REFTYPE) if(COND) { \ + test::packet_helper h; \ + for (int i=0; i(data1[i]))); \ + h.store(data2, POP(h.load(data1))); \ + VERIFY(test::areApprox(ref, data2, PacketSize) && #POP); \ +} + +template <> +void packetmath_real::type>(){ + typedef internal::packet_traits PacketTraits; + typedef internal::packet_traits::type Packet; + + const int PacketSize = internal::unpacket_traits::size; + const int size = PacketSize * 4; + EIGEN_ALIGN_MAX bfloat16 data1[PacketSize * 4]; + EIGEN_ALIGN_MAX bfloat16 data2[PacketSize * 4]; + EIGEN_ALIGN_MAX bfloat16 ref[PacketSize * 4]; + + for (int i = 0; i < size; ++i) { + data1[i] = bfloat16(internal::random(0, 1) * std::pow(float(10), internal::random(-6, 6))); + data2[i] = bfloat16(internal::random(0, 1) * std::pow(float(10), internal::random(-6, 6))); + data1[i] = bfloat16(0); + } + + if (internal::random(0, 1) < 0.1f) data1[internal::random(0, PacketSize)] = bfloat16(0); + + CAST_CHECK_CWISE1_IF(PacketTraits::HasLog, std::log, internal::plog, bfloat16, float); + CAST_CHECK_CWISE1_IF(PacketTraits::HasRsqrt, float(1) / std::sqrt, internal::prsqrt, bfloat16, float); + + for (int i = 0; i < size; ++i) { + data1[i] = bfloat16(internal::random(-1, 1) * std::pow(float(10), internal::random(-3, 3))); + data2[i] = bfloat16(internal::random(-1, 1) * std::pow(float(10), internal::random(-3, 3))); + } + CAST_CHECK_CWISE1_IF(PacketTraits::HasSin, std::sin, internal::psin, bfloat16, float); + CAST_CHECK_CWISE1_IF(PacketTraits::HasCos, std::cos, internal::pcos, bfloat16, float); + CAST_CHECK_CWISE1_IF(PacketTraits::HasTan, std::tan, internal::ptan, bfloat16, float); + + CAST_CHECK_CWISE1_IF(PacketTraits::HasRound, numext::round, internal::pround, bfloat16, float); + CAST_CHECK_CWISE1_IF(PacketTraits::HasCeil, numext::ceil, internal::pceil, bfloat16, float); + CAST_CHECK_CWISE1_IF(PacketTraits::HasFloor, numext::floor, internal::pfloor, bfloat16, float); + + for (int i = 0; i < size; ++i) { + data1[i] = bfloat16(-1.5 + i); + data2[i] = bfloat16(-1.5 + i); + } + CAST_CHECK_CWISE1_IF(PacketTraits::HasRound, numext::round, internal::pround, bfloat16, float); + + for (int i = 0; i < size; ++i) { + data1[i] = bfloat16(internal::random(-87, 88)); + data2[i] = bfloat16(internal::random(-87, 88)); + } + CAST_CHECK_CWISE1_IF(PacketTraits::HasExp, std::exp, internal::pexp, bfloat16, float); + +} + template void packetmath_notcomplex() { typedef internal::packet_traits PacketTraits; @@ -761,6 +817,47 @@ void packetmath_notcomplex() { } } +template <> +void packetmath_notcomplex::type>(){ + typedef bfloat16 Scalar; + typedef internal::packet_traits::type Packet; + typedef internal::packet_traits PacketTraits; + const int PacketSize = internal::unpacket_traits::size; + + EIGEN_ALIGN_MAX Scalar data1[PacketSize * 4]; + EIGEN_ALIGN_MAX Scalar data2[PacketSize * 4]; + EIGEN_ALIGN_MAX Scalar ref[PacketSize * 4]; + Array::Map(data1, PacketSize * 4).setRandom(); + + ref[0] = data1[0]; + for (int i = 0; i < PacketSize; ++i) ref[0] = (std::min)(ref[0], data1[i]); + VERIFY(internal::isApprox(ref[0], internal::predux_min(internal::pload(data1))) && "internal::predux_min"); + + VERIFY((!PacketTraits::Vectorizable) || PacketTraits::HasMin); + VERIFY((!PacketTraits::Vectorizable) || PacketTraits::HasMax); + + CHECK_CWISE2_IF(PacketTraits::HasMin, (std::min), internal::pmin); + CHECK_CWISE2_IF(PacketTraits::HasMax, (std::max), internal::pmax); + CHECK_CWISE1(numext::abs, internal::pabs); + CHECK_CWISE2_IF(PacketTraits::HasAbsDiff, REF_ABS_DIFF, internal::pabsdiff); + + ref[0] = data1[0]; + for (int i = 0; i < PacketSize; ++i) ref[0] = (std::max)(ref[0], data1[i]); + VERIFY(internal::isApprox(ref[0], internal::predux_max(internal::pload(data1))) && "internal::predux_max"); + + { + unsigned char* data1_bits = reinterpret_cast(data1); + // predux_any + for (unsigned int i = 0; i < PacketSize * sizeof(Scalar); ++i) data1_bits[i] = 0x0; + VERIFY((!internal::predux_any(internal::pload(data1))) && "internal::predux_any(0000)"); + for (int k = 0; k < PacketSize; ++k) { + for (unsigned int i = 0; i < sizeof(Scalar); ++i) data1_bits[k * sizeof(Scalar) + i] = 0xff; + VERIFY(internal::predux_any(internal::pload(data1)) && "internal::predux_any(0101)"); + for (unsigned int i = 0; i < sizeof(Scalar); ++i) data1_bits[k * sizeof(Scalar) + i] = 0x00; + } + } +} + template void test_conj_helper(Scalar* data1, Scalar* data2, Scalar* ref, Scalar* pval) { const int PacketSize = internal::unpacket_traits::size; @@ -819,7 +916,7 @@ void packetmath_scatter_gather() { typedef typename NumTraits::Real RealScalar; const int PacketSize = internal::unpacket_traits::size; EIGEN_ALIGN_MAX Scalar data1[PacketSize]; - RealScalar refvalue = 0; + RealScalar refvalue = RealScalar(0); for (int i = 0; i < PacketSize; ++i) { data1[i] = internal::random() / RealScalar(PacketSize); } @@ -900,7 +997,7 @@ EIGEN_DECLARE_TEST(packetmath) { CALL_SUBTEST_12(test::runner >::run()); CALL_SUBTEST_13((packetmath::type>())); CALL_SUBTEST_14((packetmath::type>())); - CALL_SUBTEST_15((packetmath::type>())); + CALL_SUBTEST_15(test::runner::run()); g_first_pass = false; } } -- cgit v1.2.3