+ initial version

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.
+