tb205.pp « tbs « tests « fpcsrc - fpc - [no description]

summary refs log tree commit diff

path: root/fpcsrc/tests/tbs/tb205.pp

blob: 78871552e466e18fd0ea12c94cda893cfba5f708 (plain)

var
  s: set of 3..40;
begin
  if (low(s)<>3) or
     (high(s)<>40) then
    halt(1);
end.