freepascal.compiler/bugs/bug0158.pp

program tmp;

var
   Molo  :Boolean;

begin
   Molo := 1;     { This should give out a Type mismatch error ! }
end.