slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

Bugfix return type for some set operators

Browse source
This commit is contained in:
slederer 2024-10-16 02:01:12 +02:00
parent 32bfe1c803
commit 19f7d2a0eb
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tests/settest.pas Normal file
View file

@ -0,0 +1,11 @@
program settest;
type myset = set of (alpha, beta, gamma, delta);
var a,b:myset;
begin
a := [alpha, gamma];
b := [alpha, gamma, delta];
writeln (a <= b);
writeln (a >= b);
writeln (b >= a);
writeln ((b - [alpha, gamma]) >= a);
end.