fork download

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_Io, Ada.Integer_Text_IO;
procedure Matrix_mul is
i,j,k: Integer;
matrix_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
matrix_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
matrix_b:array(0..2,0..2) of Integer:=((2,2,2),(2,2,2),(2,2,2));
begin
for i in 0..2 loop
 for j in 0..2 loop
  for k in 0..2 loop
	matrix_res(i)(j) := (matrix_res(i)(j) + (matrix_a(i)(k)* matrix_b(k)(j)));
  end loop;
 end loop;
end loop;
put(matrix_res(i)(j),2);
 
end Matrix_mul;
 

gnatgcc -c -pipe -O2 prog.adb
prog.adb:3:11: warning: file name does not match unit name, should be "matrix_mul.adb"
prog.adb:12:20: too few subscripts in array reference
prog.adb:12:41: too few subscripts in array reference
prog.adb:12:59: too few subscripts in array reference
prog.adb:12:75: too few subscripts in array reference
prog.adb:16:16: too few subscripts in array reference
gnatmake: "prog.adb" compilation error

Standard output is empty