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;
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,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:40: too few subscripts in array reference
prog.adb:12:58: too few subscripts in array reference
prog.adb:12:74: too few subscripts in array reference
prog.adb:16:01: no candidate interpretations match the actuals:
prog.adb:16:01: too many arguments in call to "put"
prog.adb:16:05: expected type "Standard.String"
prog.adb:16:05: found type of matrix_res declared at line 5
prog.adb:16:05:   ==> in call to "Put" at a-tiinio.ads:77, instance at a-inteio.ads:18
prog.adb:16:05:   ==> in call to "Put" at a-tiinio.ads:67, instance at a-inteio.ads:18
prog.adb:16:05:   ==> in call to "Put" at a-tiinio.ads:61, instance at a-inteio.ads:18
prog.adb:16:05:   ==> in call to "Put" at a-textio.ads:243
prog.adb:16:05:   ==> in call to "Put" at a-textio.ads:209
gnatmake: "prog.adb" compilation error

Standard output is empty