Value parameters won't compile?

[User137]

No it's in objfpc mode

program Project1;

{$mode objfpc}{$H+}

Const
  MyConst = 20;

Procedure MyRealFunc(I : Integer = MyConst);
begin
  Writeln('Function received : ',I);
end;

begin
  MyRealFunc;
end.

But like said i don't know what i'm doing wrong, because the app doesn't run even if i do this:

program Project1;

{$mode objfpc}{$H+}

Procedure MyRealFunc;
var i: integer;
begin
  i:=1;
  Writeln('Function received : ',i);
end;

begin
  MyRealFunc;
end.

Compiler messages are real though, wrong changes in code do result in errors.

edit: AH! Now they run. I disabled -WG from project options so that it doesn't try to make it Win32 GUI application. From command prompt i get:

Function received : 20