-- sort_test.ada  or  sorttest.adb

with Sort ; use Sort ;
with Text_IO ; use Text_IO ;

procedure Sort_Test is

  package Int_IO is new Integer_IO ( Integer ) ;
  use Int_IO ;

  Data : Int_Array ( 1 .. 9 ) := ( 7 , 4 , 9 , 2 , 1 , 3 , 6 , 5 , 8 ) ;
  Size : Integer := 9 ;
begin

  NNSort ( Size , Data ) ;

  for I in 1 .. Size loop
    Put ( Data( I )) ;
    New_Line ;
  end loop ;

end Sort_Test ;




The commands to compile vary from compiler to compiler and 
from operating system to operating system.

On some systems, OpenVMS and others, it would be

   ada  sort_.ada
   ada  sort.ada
   ada  sort_test.ada
   acs link sort_test
   run sort_test

On gnat it would be

   gcc -c sort.ads             ; actually optional, but does error check
   gcc -c sort.adb             ; typical but can be after next line
   gcc -c sorttest.adb
   gnatbl sorttest.ali
   sorttest

On gnat in DOS, to find 8 character file name for an Ada unit, use gnatk8

gnatk8 sort_test               ; you type
sorttest                       ; program outputs, thus sorttest.ads etc.