language: Ada (gnat-4.3.2)
date: 120 days 22 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

procedure Array_Caracteres is
 
        Fuente : Vector_3;
        Busca  : Vector_3;
        Cuenta : Natural := 0;
begin
        for i in Fuente'Range loop
        for j in Busca'Range loop
          if Fuente (i) = Busca (j) then
             Cuenta := Cuenta + 1;
          end if;
        end loop;
        end loop;
end Array_Caracteres;
gnatgcc -c -pipe -O2 prog.adb
prog.adb:1:11: warning: file name does not match unit name, should be "array_caracteres.adb"
prog.adb:3:18: "Vector_3" is undefined (more references follow)
gnatmake: "prog.adb" compilation error