*** empty log message ***

tests/tbf0157.pp

@@ -0,0 +1,17 @@
+{ this should be rejected because we only accept integer args }
+
+program write_it;
+var x,y:real;
+    i : longint;
+    s : string;
+begin
+x:=5.6;
+y:=45.789;
+write(y:2:3,' ',x:3:4);
+write(i:5);
+s:='short';
+write(s:11);
+write(i:5:2);
+write(s:25:3);
+write(x:5.2);
+end.

tests/tbf0175.pp

@@ -0,0 +1,10 @@
+{ this will just give out an error }
+{$asmmode att}
+{$R+}
+var
+  w : word;
+begin
+  asm
+        movl w,%ecx
+  end;
+end.

tests/tbs0175.pp

@@ -1,3 +1,6 @@
+{ this will just give out a warning }
+{$asmmode att}
+{$R-}
 var
   w : word;
 begin

tests/tbs0185.pp

@@ -1,6 +1,7 @@
 Program bug0185;
 
 {shows some bugs with rangechecks}
+{ readln from input changed to from a file to render it non-interactive }
 
 var s: String;
     i: integer;

tests/tbs0210.pp

@@ -0,0 +1,10 @@
+{ boolean args are accepted for fillchar in BP }
+
+program test;
+
+  var l : array[1..10] of boolean;
+
+begin
+   fillchar(l,sizeof(l),true);
+end.
+

tests/tbs0211.pp

@@ -0,0 +1,29 @@
+var
+   a,b : boolean;
+   c : byte;
+   i : longint;
+
+procedure Error;
+begin
+   Writeln('Error in bug0211');
+   Halt(1);
+end;
+
+begin
+  c:=5;
+  a:=boolean(c);
+  if a and not a then
+    Begin
+       Writeln('FPC is crazy !!');
+       Error;
+    End;
+  i:=256;
+  a:=boolean(i);
+  { the value here is less trivial }
+  { BP returns false here !!       }
+  { the problem is the converting wordbool to boolean }
+  { if wordbool is 256 should not convert true to false !! }
+
+  Writeln('boolean(256) =',a);
+end.
+