freepascal.compiler/tests/tbf/tb0149.pp

{ %VERSION=1.1 }
{ %FAIL }
{ %OPT=-Sew -vw }

uses ub0149;



procedure testdef1(b: tdefinition);
begin
  b:=12;
end;


type
  tdefinition = 1..10;

procedure testdef2(b : tdefinition);
begin
  b:=10;
end;


Begin
  testdef1(0);
  testdef2(0);
end.