Some time ago, I posted about this.

On the TP mode FreePascal can use a function as a procedure. Florian told me that that was because of the version of the TP emulation. Well, after that, I was happy with that until now. I discovered that, even adding {$x-} to the code, if you put a function inside a "for" or an "if" you can use a function as a procedure:

********************************************************************
program pru_funcion_como_procedimiento (input,output);
{$x-}
function pru_func:boolean;
begin
    writeln ('Hola programador.');
    pru_func := TRUE;
end; { pru_func }
procedure pru;
var
    i : integer;
begin
    for i:=1 to 10 do
       pru_func;
end; { pru }
begin
    pru;
end.
*********************************************************************

Is this still normal behaviour?

I hope this helps anybody.

Zaka.