SV * get_problem_val(void) {
 return newSVnv(1e-298L);
}

##</code><code>##

#!perl -l
use warnings;
use strict;
use Config;

use Inline C => Config =>
  USING => 'ParseRegExp',
  BUILD_NOISY => 1;

use Inline C => <<'EOC';

SV * get_problem_val(void) {
  return newSVnv(1e-298L);
}

EOC

print "\n\$Config{nvtype}: $Config{nvtype}";
print "Different values" if 1e-298 != get_problem_val();
print scalar reverse unpack "b64", pack "D", 1e-298;
print scalar reverse unpack "b64", pack "D", get_problem_val();