Initial data commit

Task/Sort-an-integer-array/SparForte/sort-an-integer-array.sparforte

@@ -0,0 +1,22 @@
+#!/usr/local/bin/spar
+pragma annotate( summary, "int_sort" )
+              @( description, "Sort an array (or list) of integers in ascending" )
+              @( description, "numerical order. Use a sorting facility provided by" )
+              @( description, "the language/library if possible." )
+              @( category, "tutorials" )
+              @( author, "Ken O. Burtch" )
+              @( see_also, "http://rosettacode.org/wiki/Sort_an_integer_array" );
+pragma license( unrestricted );
+
+pragma software_model( nonstandard );
+pragma restriction( no_external_commands );
+
+procedure int_sort is
+  type int_array is array (1..9) of integer;
+  int_values : int_array := (0,1,8,2,7,3,6,4,5);
+begin
+  arrays.heap_sort( int_values );
+  for i in arrays.first( int_values )..arrays.last( int_values ) loop
+    ? int_values(i);
+  end loop;
+end int_sort;