freepascal.compiler/tests/webtbf/tw3145.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 3145 }
{ Submitted by "Christian Iversen" on  2004-06-08 }
{ e-mail: [email protected] }
program envhost;

{$mode objfpc}

Procedure Foo(A : Integer = Integer(Nil^));
begin
end;

begin
end.