use Math::MPFI qw(:mpfi);
use Math::MPFR qw(:mpfr);
use warnings;
use strict;
print "1..1\n";
Rmpfr_set_default_prec(60);
my $fr_e = Math::MPFR->new();
Rmpfr_const_euler($fr_e, GMP_RNDN);
my $d = Rmpfr_get_d($fr_e, GMP_RNDN);
Rmpfi_set_default_prec(50);
my $op = Math::MPFI->new();
Rmpfi_const_euler($op);
if($op == $d) {print "ok 1\n"}
else {
warn "\$op: $op\n\$d: $d\n";
print "not ok 1\n";
}