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

*** empty log message ***

Browse Source
This commit is contained in:
florian 2000-04-02 20:02:00 +00:00
parent ff5b72e3bd
commit a2e8fd9f07
4 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
tests/test/dotest.pp → tests/dotest.pp
View File

19
tests/tbs/tbs0258.pp
View File

@ -1,3 +1,6 @@
{$ifdef fpc}
{$mode tp}
{$endif fpc}
program test_set; program test_set;
uses erroru; uses erroru;
@ -17,9 +20,7 @@ procedure test;
begin begin
for i:=1 to 32 do x[i]:=$ff; for i:=1 to 32 do x[i]:=$ff;
i:=1; i:=1;
if i in [1,3,5,8,11,14,15] then if not(i in [1,3,5,8,11,14,15]) then
writeln('1 is in [1,3,5,8,11,14,15]')
else
begin begin
writeln('Error in set'); writeln('Error in set');
error; error;
@ -31,21 +32,21 @@ procedure test;
error; error;
end; end;
i:=257; i:=257;
if i in [1,3,5,8,11,14,15] then if not(i in [1,3,5,8,11,14,15]) then
begin begin
writeln('Error : 257 is in [1,3,5,8,11,14,15]'); writeln('Error : 257 isn''t in [1,3,5,8,11,14,15]');
error; error;
end; end;
l:=-1; l:=-1;
if l in [1,3,5,8,11,14,15,255] then if not(l in [1,3,5,8,11,14,15,255]) then
begin begin
writeln('Error : -127 is in [1,3,5,8,11,14,15,255]'); writeln('Error : -1 isn''t in [1,3,5,8,11,14,15,255]');
error; error;
end; end;
i:=257; i:=257;
if l in [1,3,5,8,11,14,15,255] then if not(l in [1,3,5,8,11,14,15,255]) then
begin begin
writeln('Error : longint(257) is in [1,3,5,8,11,14,15,255]'); writeln('Error : longint(257) isn''t in [1,3,5,8,11,14,15,255]');
error; error;
end; end;
for i:=1 to 32 do x[i]:=0; for i:=1 to 32 do x[i]:=0;

2
tests/testopt/testreg1.pp
View File

@ -1,4 +1,4 @@
{$OPT=-Or} { $OPT=-Or}
{$minenumsize 1} {$minenumsize 1}
type type

2
tests/testopt/testreg2.pp
View File

@ -1,4 +1,4 @@
{$OPT=-Or} { $OPT=-Or}
{$maxfpuregisters 3} {$maxfpuregisters 3}
uses uses
dotest; dotest;