fork download

copy

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_Io, Ada.Integer_Text_IO;
procedure Matrix_mul is
i,j,k: Integer;
mat_res: array(0..2,0..2) of Integer:=((0,0,0),(0,0,0),(0,0,0));
mat_a:array(0..2,0..2) of Integer:=((1,1,1),(1,1,1),(1,1,1));
mat_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
	mat_res(i)(j) := (mat_res(i)(j) + (mat_a(i)(k)* mat_b(k)(j)));
  end loop;
  put(mat_res(i)(j),2);
 
 end loop;
 
end loop;
 
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:17: too few subscripts in array reference
prog.adb:12:35: too few subscripts in array reference
prog.adb:12:50: too few subscripts in array reference
prog.adb:12:63: too few subscripts in array reference
prog.adb:14:15: too few subscripts in array reference
gnatmake: "prog.adb" compilation error

Standard output is empty