+ initial version

2025-04-16 00:42:06 +02:00 · 2002-06-13 08:31:57 +00:00 · 2002-06-13 08:31:57 +00:00 · 375eca81ae
commit 375eca81ae
parent c9f2e8007f
1 changed files with 15 additions and 0 deletions
--- a/tests/test/tsubdecl.pp
+++ b/tests/test/tsubdecl.pp
@ -0,0 +1,15 @@
+{ %fail }
+unit tsubdecl;
+
+interface
+
+  Procedure CFreeMemSize(p:pointer);
+
+implementation
+
+Procedure CFreeMemSize(var p:pointer);
+begin
+end;
+
+end.
+