fpcsrc/tests/test/tenum1.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

type
  days = (mon,tue,wed,thu,fri,sat,sun);
  weekend = sat..sun;

procedure t2(day: weekend);
begin
  if day = sat then
    writeln('ok')
  else writeln('error');
end;

begin
  t2(sat);
end.