fpc/tests/test/tsubdecl.pp
2002-06-13 08:31:57 +00:00

16 lines
148 B
ObjectPascal

{ %fail }
unit tsubdecl;
interface
Procedure CFreeMemSize(p:pointer);
implementation
Procedure CFreeMemSize(var p:pointer);
begin
end;
end.