paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bugs

Browse Source
This commit is contained in:
peter 2004-09-16 16:36:09 +00:00
parent 35c07ed9ef
commit 3499fd448a
3 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/webtbs/tw3286.pp Normal file
View File

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

2
tests/webtbs/tw3320.pp
View File

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

25
tests/webtbs/tw3324.pp Normal file
View File

@ -0,0 +1,25 @@
{ Source provided for Free Pascal Bug Report 3324 }
{ Submitted by "Tom Verhoeff" on 2004-09-15 }
{ e-mail: T.Verhoeff@tue.nl }
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.