paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-28 07:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* register as known v1.0 problems

Browse Source
This commit is contained in:
pierre 2003-02-21 11:35:28 +00:00
parent d24fa6492c
commit ecae861d6a
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0447.pp
View File

@ -1,3 +1,5 @@
{ %KNOWNRUNERROR=201 v1.0 computes cardinal > longint as cardinal values }
{$R+}
var
a : cardinal;

22
tests/tbs/tb0447a.pp Normal file
View File

@ -0,0 +1,22 @@
{ %KNOWNRUNERROR=2 v10 computes cardinal > longint as cardinals }
{$R-}
var
a : cardinal;
b : longint;
begin
a := 0;
b := -1;
if a > b then
writeln ('OK')
else
{$ifdef VER0}
halt(2);
{$else not VER0}
{$ifdef VER1_0}
halt(2);
{$else}
halt(1);
{$endif}
{$endif}
end.