*** empty log message ***

tests/tbf/tbff001.pp

@@ -0,0 +1,15 @@
+procedure myproc;
+var
+  a: word;
+  a: word;
+  a: word;
+  a: word;
+  a: word;
+begin
+  a := 1;
+  writeln (a);
+end;
+
+begin
+  myproc;
+end.