* new bugs

  * fixed version tag

tests/webtbs/tw1856.pp

@@ -1,4 +1,4 @@
-{ %ver=1.1 }
+{ %version=1.1 }
 
 {$mode objfpc}
 

tests/webtbs/tw1883.pp

@@ -1,4 +1,4 @@
-{ %ver=1.1 }
+{ %version=1.1 }
 
 begin
 { Default extension .pp and .pas should be searched }

tests/webtbs/tw1920.pp

@@ -1,4 +1,4 @@
-{ %ver=1.1 }
+{ %version=1.1 }
 
 VAR
         X64     : Qword;

tests/webtbs/tw1935.pp

@@ -0,0 +1,47 @@
+{ %version=1.1 }
+
+{$ifdef fpc}
+  {$mode objfpc}
+{$endif}
+
+type
+        TCls = class
+                public
+                        procedure build (a, b, c: LongInt);overload;
+                        procedure build (a, b, c, d: LongInt);overload;
+                end;
+
+const
+    err : boolean=true;
+
+procedure TCls.build (a, b, c: LongInt);
+
+        procedure subproc;
+        begin
+                writeln ('a, b, c');
+        err:=false;
+        end;
+
+begin
+        subproc;
+end;
+
+procedure TCls.build (a, b, c, d: LongInt);
+
+        procedure subproc;
+        begin
+                writeln ('a, b, c, d');
+        end;
+
+begin
+end;
+
+var
+        C: TCls;
+
+begin
+        C := TCls.create;
+        C.build (1, 2, 3);
+    if err then
+     halt(1);
+end.

tests/webtbs/tw1936.pp

@@ -0,0 +1,27 @@
+var
+   X,Y,X1,Y1,X2,Y2,Style: byte;
+
+begin
+   X := 4;
+   Y := 5;
+   X1 := 3;
+   X2 := 5;
+   Y1 := 4;
+   Y2 := 6;
+   Style := 7;
+
+   if ((Style=0) and (X in [X1..X2]) and (Y in [Y1..Y2]))
+   or ((Style=6) and (X in [succ(X1)..pred(X2)]) and (Y in [Y1+3..pred(Y2)]))
+   or ((Style <> 0) and (Style <> 6) and  (X in [succ(X1)..pred(X2)]) and (Y in [succ(Y1)..pred(Y2)]))
+   then
+   begin
+      writeln ('OK');
+   end
+   else
+   begin
+     writeln('ERROR');
+     halt(1);
+   end;
+end.
+
+

tests/webtbs/ub1883.pp

@@ -0,0 +1 @@
+writeln('Success');