summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/test/tenum1.pp
blob: c77f66a4f331a38a15457e8c9bf27a9672234d12 (plain)
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.