Initial data commit

Task/Time-a-function/SparForte/time-a-function.sparforte

@@ -0,0 +1,38 @@
+#!/usr/local/bin/spar
+pragma annotate( summary, "time_function" )
+       @( description, "Write a program which uses a timer (with the least " )
+       @( description, "granularity available on your system) to time how " )
+       @( description, "long a function takes to execute." )
+       @( see_also, "http://rosettacode.org/wiki/Time_a_function" );
+pragma annotate( author, "Ken O. Burtch" );
+pragma license( unrestricted );
+
+pragma restriction( no_external_commands );
+
+procedure time_function is
+
+  procedure sample_function( num : in out integer ) is
+  begin
+    for i in 1..1000 loop
+       num := @+1;
+    end loop;
+  end sample_function;
+
+  start_time : calendar.time;
+  end_time   : calendar.time;
+  seconds    : duration;
+
+  procedure time_sample_function is
+    sample_param : integer := 4;
+  begin
+    start_time := calendar.clock;
+    sample_function( sample_param );
+    end_time := calendar.clock;
+    seconds := end_time - start_time;
+  end time_sample_function;
+
+begin
+  time_sample_function;
+  put_line( "sum(4) takes:" & strings.image( seconds ) & " seconds." );
+  command_line.set_exit_status( 0 );
+end time_function;