use warnings;
use strict;
use Math::Decimal64 qw(:all);

print "1..1\n";

my $d64;

if(have_strtod64()){

  $d64 = STRtoD64('-9307199254740993');

  if($d64 == Math::Decimal64::_testvalD64(-1)) {print "ok 1\n"}
  else {
    warn "\$d64: $d64\n";
    print "not ok 1\n";
  }
}

else {
  eval{$d64 = STRtoD64('-1');};
  if($@) {print "ok 1\n"}
  else {
    warn "No \$\@\n";
    print "not ok 1\n";
  }
}