He de realizar una práctica de programación en ADA, y en uno de los (sub)procedimientos que debo implementar me sale el error "expect procedure name in procedure call" al compilar. Por mucho que le de vueltas no consigo encontrar dónde esta el fallo, por esto agradecería que alguien me echase una mano. "Almacenar" y "Comprobar" son dos "separates".
El código es: (el error lo indica en la función "Comprobar")
Begin
Open (F,In_File,"origen.txt");
Open (G,In_File,"palabras_reservadas.txt");
Create (H,Out_File,"destino.txt");
while not(End_Of_File(F)) loop
Almacenar(F,Palabra1);
Almacenar(G,Palabra2);
-- función que compara las dos palabras obtenidas con el procedimiento almacenar
Comprobar(Palabra1,Palabra2);
if Car=' ' or Car='(' then
Put(H,Car);
Get(F,Car);
else
Put(H,Car);
New_Line(G);
Get(F,Car);
while Car=' ' and not(End_Of_File(F)) loop
Get(F,Car);
end loop;
end if;
end loop;
Close(F);
Close(G);
Close(H);
end Buscar_Palabra;
FUNCTION Comprobar (A,B: in Palabra) return Boolean is
I : Integer := 1;
Begin
while A(I)=B(I) and B(I)/=' ' loop
I:=I+1;
end loop;
return A(I)=B(I);
end Comprobar;
Muchas gracias de antemano a todos aquellos que me puedan ayudar.
