fpc/tests/webtbs/tw3045.pp
2004-04-11 12:36:32 +00:00

17 lines
312 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 3045 }
{ Submitted by "marco" on 2004-04-10 }
{ e-mail: }
{$mode delphi}
procedure raiselastwin32error;
begin
end;
const raiselastoserror : procedure = raiselastwin32error; // ok
var varraiselastoserror : procedure = raiselastwin32error; // fail
begin
end.