* flag bugs that will not be fixed in 1.0.x to be 1.1 only

tests/tbf/tb0003.pp

@@ -1,13 +0,0 @@
-{ %FAIL }
-{ Old file: tbf0036.pp }
-{  assigning a single character to array of char      ?OK 0.9.9 }
-
-program bug0036;
-
-{Discovered by Daniel Mantione.}
-
-var     a:array[0..31] of char;
-
-begin
-   a:=' ';      {Incorrect Pascal statement, but why a protection error?}
-end.

tests/tbs/tb0379.pp → tests/tbf/tb0117.pp

@@ -1,3 +1,5 @@
+{ %fail }
+
 {$mode delphi}
 
 var

tests/tbs/tb0150.pp

@@ -1,4 +1,5 @@
 { %OPT=-Un }
+{ %RECOMPILE }
 
 { Old file: tbs0180.pp }
 { problem for units with names different from file name should be accepted with -Un !! Solved, but you still need to use the file name from other units                                                 OK 0.99.9 (PM) }

tests/tbs/tb0357.pp

@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 {$ifdef fpc}{$MODE OBJFPC}{$endif}
 uses sysutils;
 var

tests/tbs/tb0380.pp

@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 uses ub0380;
 procedure p1(s:string);overload;
 begin

tests/tbs/tb0386.pp

@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 {$ifdef fpc}{$mode objfpc}{$endif}
 uses ub0386;
 type

tests/tbs/tb0391.pp

@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 {$ifdef fpc}{$mode objfpc}{$endif}
 uses ub0391;
 

tests/webtbs/tw1677.pp

@@ -9,11 +9,14 @@ var r:trec; s:ansistring;
 begin
   s:=chr(ord('A')+random(26));
   r.s:=s;
+  writeln('init');
   if plongint(pointer(s)-4)^<>3 then
     halt(1);
+  writeln('p1()');
   p1(r);
   if plongint(pointer(s)-4)^<>3 then
     halt(1);
+  writeln('p2()');
   p2(r);
   if plongint(pointer(s)-4)^<>3 then
     halt(1);