#!perl
# Name: Calling procedures
# Require: 4
# Desc:
#
require 'benchlib.pl';
sub foo
{
$_[0] * 2;
}
&runtest(25, <<'ENDTEST');
&foo(3);
&foo(5);
&foo(8);
ENDTEST
#!perl
# Name: Calling procedures
# Require: 4
# Desc:
#
require 'benchlib.pl';
sub foo
{
$_[0] * 2;
}
&runtest(25, <<'ENDTEST');
&foo(3);
&foo(5);
&foo(8);
ENDTEST