*** empty log message ***

tests/tbs/tbs0331.pp

@@ -0,0 +1,15 @@
+{$mode tp}
+unit test;
+
+  interface
+
+    procedure a(s : string);
+
+  implementation
+
+    procedure a;
+
+      begin
+      end;
+
+end.