fork download

copy

  with Ada.Text_IO, Ada.Integer_Text_IO;
 
procedure bubbleSort is
          maxAmnt : Integer;
          package IO renames Ada.Text_IO;
  begin
          IO.Put_Line("Welcome to the BubbleSort, please enter the amount of numbers you   wish to sort");
          Ada.Integer_Text_IO.Get(maxAmnt);
 
          IO.Put_Line("Please Enter the integers, as to fill up our initial array");
 
          declare
                  type arr is array(1 .. maxAmnt) of Integer;
                  n : Integer;
          begin
                  for i in arr'range loop
                          Ada.Integer_Text_IO.Get(n);
                       arr(i):=0;
                  end loop;
     end
 
end bubbleSort
 

x86_64-linux-gnu-gcc-8 -c -pipe -O2 test.adb
test.adb:3:11: warning: file name does not match unit name, should be "bubblesort.adb"
test.adb:18:28: illegal operand for array conversion
test.adb:20:09: missing ";"
test.adb:22:15: missing ";"
x86_64-linux-gnu-gnatmake-8: "test.adb" compilation error

Standard output is empty