fpc/tests/tbf0158.pp

9 lines
116 B
ObjectPascal

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