#!/usr/bin/perl

use strict;
use warnings;
use Inline C => 'DATA';

print "Perl native:\n";
print pack q/d*/, (1.7453026326120991e+194, 1.5156845462257262e-147);
print "\n\n";

print "Defined in C function:\n";
print pack q/d*/, ( getx(), gety() );
print "\n";
__DATA__
__C__
double getx () {
	static double x = 1.7453026326120991e+194;
	return x;
}

double gety () {
	static double y = 1.5156845462257262e-147;
	return y;
}