* added

tests/webtbs/tbug1046.pp

@@ -0,0 +1,8 @@
+procedure test2(self : longint);
+begin
+ writeln(self);
+end;
+
+begin
+  test2(1);
+end.

tests/webtbs/tbug1061.pp

@@ -0,0 +1,12 @@
+var vlCnt:longint;
+begin
+   vlCnt := 10;
+   case vlCnt of
+   7: writeln(7);
+   12,13: begin
+            writeln('Case codegeneration error!');
+            halt(1);
+          end;
+   11:writeln(11);
+   end;
+end.

tests/webtbs/tbug1081.pp

@@ -0,0 +1,41 @@
+uses dos;
+var dirinfo:searchrec;
+
+function IntToStr(I: Longint): String;
+{ Convert any integer type to a string }
+var
+  S: string[11];
+begin
+  Str(I, S);
+  IntToStr := S;
+end;
+
+procedure write_error(errorstring:string);
+var
+h,m,s,j,mo,ta,dummy:word;
+stri:string;
+begin
+  gettime(h,m,s,dummy);
+  getdate(j,mo,ta,dummy);
+  stri:=inttostr(j)+':'+inttostr(mo)+':'+inttostr(ta)+' '+inttostr(h)+':'+inttostr(m)+':'+inttostr(s);
+  writeln(stri,' ',errorstring);
+end;
+
+procedure readprgfiles;
+var i:word;
+begin
+  FindFirst('*.pp',anyfile, DirInfo);
+ while doserror = 0 do
+  begin
+    inc(i);
+    writeln(dirinfo.name);
+    write_error(dirinfo.name); {without this function the program works}
+    FindNext(DirInfo);
+  end;
+  write_error('fertig');
+end;
+
+
+BEGIN
+readprgfiles;
+END.