* new bugs

tests/webtbs/tw3286.pp

@@ -0,0 +1,11 @@
+{ Source provided for Free Pascal Bug Report 3286 }
+{ Submitted by "Frank Kintrup" on  2004-08-31 }
+{ e-mail: [email protected] }
+{$mode delphi}
+var
+  p : Pointer;
+  a : array of Integer;
+begin
+  SetLength(a, 10);
+  p := a;
+end.

tests/webtbs/tw3320.pp

@@ -22,5 +22,5 @@ begin
   if length(b)<>3 then
     err:=true;
   if err then
-    halt(1);  
+    halt(1);
 end.

tests/webtbs/tw3324.pp

@@ -0,0 +1,25 @@
+{ Source provided for Free Pascal Bug Report 3324 }
+{ Submitted by "Tom Verhoeff" on  2004-09-15 }
+{ e-mail: [email protected] }
+program ReadCharSubrange;
+  { Demonstrates bug in 1.9.5 when reading into a subrange of Char }
+
+const
+  MinChar = 'a';
+  MaxChar = 'z';
+
+type
+  Subrange = MinChar .. MaxChar;
+
+var
+  c: Subrange;
+
+begin
+  write ( 'Type a character in the range ', MinChar, ' .. ', MaxChar, ': ' );
+  c:='b';
+  if c='a' then
+    begin
+      readln ( c );
+      writeln ( 'c = ', c );
+    end;
+end.