paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added

Browse Source
This commit is contained in:
peter 2000-12-28 20:40:35 +00:00
parent a4ee36350c
commit 5c3f62a8cd
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/webtbs/tw1310.pp Normal file
View File

@ -0,0 +1,14 @@
type
Days = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
Weekdays = Mon..Fri;
Weekend = Sat..Sun;
begin
WriteLn('Days ', Ord(Low(Days)) , Ord(High(Days)) :2);
WriteLn('Weekdays ', Ord(Low(Weekdays)), Ord(High(Weekdays)):2, ' should be 4!');
WriteLn('Weekend ', Ord(Low(Weekend)) , Ord(High(Weekend)) :2);
if ord(high(weekdays))<>4 then
begin
writeln('ERROR!');
Halt(1);
end;
end.