paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 20:28:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bugs

Browse Source
This commit is contained in:
peter 2005-02-03 16:12:39 +00:00
parent 9ccc0ffda7
commit 78c475333e
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/webtbf/tw3626.pp Normal file
View File

@ -0,0 +1,24 @@
{ %skipcpu=x86_64 }
{ %fail }
{ Source provided for Free Pascal Bug Report 3626 }
{ Submitted by "Marc Geldon" on 2005-02-02 }
{ e-mail: marc.geldon@proitsystems.de }
program project1;
{$H+}
uses
SysUtils
{ add your units here };
var
i: Integer;
begin
{ This should give an range check error at compile time for
32bit systems }
for i := 0 to 90000000000000000 do
begin
writeln(inttostr(i));
end;
end.

16
tests/webtbs/tw3621.pp Normal file
View File

@ -0,0 +1,16 @@
{ Source provided for Free Pascal Bug Report 3621 }
{ Submitted by "Thomas Schatzl" on 2005-02-01 }
{ e-mail: }
{$MODE OBJFPC}
type
tfourcc=array[0..3] of char;
FUNCTION comp(f1, f2:tfourcc):boolean;
BEGIN
comp:=((f1[0]=f2[0]) AND (f1[1]=f2[1]) AND (f1[2]=f2[2]) AND (f1[3]=f2[3]));
END;
begin
comp('ABCD', 'DEFG');
end.