From 60a3de5d595d0c04ac186a68c5ba781b7021dfec Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 19 Jan 2002 14:21:37 +0000
Subject: [PATCH]   * flag bugs that will not be fixed in 1.0.x to be 1.1 only

---
 tests/tbf/tb0003.pp                    | 13 -------------
 tests/{tbs/tb0379.pp => tbf/tb0117.pp} |  2 ++
 tests/tbs/tb0150.pp                    |  1 +
 tests/tbs/tb0357.pp                    |  2 ++
 tests/tbs/tb0380.pp                    |  2 ++
 tests/tbs/tb0386.pp                    |  2 ++
 tests/tbs/tb0391.pp                    |  2 ++
 tests/webtbs/tw1677.pp                 |  3 +++
 8 files changed, 14 insertions(+), 13 deletions(-)
 delete mode 100644 tests/tbf/tb0003.pp
 rename tests/{tbs/tb0379.pp => tbf/tb0117.pp} (91%)

diff --git a/tests/tbf/tb0003.pp b/tests/tbf/tb0003.pp
deleted file mode 100644
index b4e42b5236..0000000000
--- a/tests/tbf/tb0003.pp
+++ /dev/null
@@ -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.
diff --git a/tests/tbs/tb0379.pp b/tests/tbf/tb0117.pp
similarity index 91%
rename from tests/tbs/tb0379.pp
rename to tests/tbf/tb0117.pp
index 638c4e8923..c566892265 100644
--- a/tests/tbs/tb0379.pp
+++ b/tests/tbf/tb0117.pp
@@ -1,3 +1,5 @@
+{ %fail }
+
 {$mode delphi}
 
 var
diff --git a/tests/tbs/tb0150.pp b/tests/tbs/tb0150.pp
index 58625df0e1..d07202c1fa 100644
--- a/tests/tbs/tb0150.pp
+++ b/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) }
diff --git a/tests/tbs/tb0357.pp b/tests/tbs/tb0357.pp
index 5c4730c389..93c7de3aaa 100644
--- a/tests/tbs/tb0357.pp
+++ b/tests/tbs/tb0357.pp
@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 {$ifdef fpc}{$MODE OBJFPC}{$endif}
 uses sysutils;
 var
diff --git a/tests/tbs/tb0380.pp b/tests/tbs/tb0380.pp
index 52dbc897d2..cce3b64b2f 100644
--- a/tests/tbs/tb0380.pp
+++ b/tests/tbs/tb0380.pp
@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 uses ub0380;
 procedure p1(s:string);overload;
 begin
diff --git a/tests/tbs/tb0386.pp b/tests/tbs/tb0386.pp
index 82fa56cee0..f24f4e53ce 100644
--- a/tests/tbs/tb0386.pp
+++ b/tests/tbs/tb0386.pp
@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 {$ifdef fpc}{$mode objfpc}{$endif}
 uses ub0386;
 type
diff --git a/tests/tbs/tb0391.pp b/tests/tbs/tb0391.pp
index 3cdf4e131c..2eb6c0dc69 100644
--- a/tests/tbs/tb0391.pp
+++ b/tests/tbs/tb0391.pp
@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 {$ifdef fpc}{$mode objfpc}{$endif}
 uses ub0391;
 
diff --git a/tests/webtbs/tw1677.pp b/tests/webtbs/tw1677.pp
index f09619665d..3f5dd72625 100644
--- a/tests/webtbs/tw1677.pp
+++ b/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);