paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 17:47:56 +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;
uses erroru;
@ -17,9 +20,7 @@ procedure test;
begin
for i:=1 to 32 do x[i]:=$ff;
i:=1;
if i in [1,3,5,8,11,14,15] then
writeln('1 is in [1,3,5,8,11,14,15]')
else
if not(i in [1,3,5,8,11,14,15]) then
begin
writeln('Error in set');
error;
@ -31,21 +32,21 @@ procedure test;
error;
end;
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
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;
end;
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
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;
end;
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
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;
end;
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}
type

2
tests/testopt/testreg2.pp
View File

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