The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use warnings;
use Math::MPFR qw(:mpfr);
use Math::MPC qw(:mpc);

print "1..2\n";

if(Math::MPFR::_has_longlong() == Math::MPC::_has_longlong()) {print "ok 1\n"}
else {print "not ok 1 - Math::MPFR and Math::MPC have been built with different characteristics re the handling of 64 bit long longs. This is likely to cause problems\n"}

if(Math::MPFR::_has_longdouble() == Math::MPC::_has_longdouble()) {print "ok 2\n"}
else {print "not ok 2 - Math::MPFR and Math::MPC have been built with different characteristics re the handling of long doubles. This is likely to cause problems\n"}