diff --git a/tests/test/tsubdecl.pp b/tests/test/tsubdecl.pp
new file mode 100644
index 0000000000..a91e9bb7d5
--- /dev/null
+++ 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.
+