fpcsrc/tests/tbs/tb0132.pp


1
2
3
4
5
6
7
8
9
10
11

{ Old file: tbs0154.pp }
{ Subrange types give type mismatch when assigning to   OK 0.99.7 (PFV) }

type
  week=(mon,tue,wed);
Var
    w : week;
    w1 : mon..tue;
begin
  w1:=w;
end.