fpc/tests/tbf/tb0107a.pp

11 lines
76 B
ObjectPascal

{ %FAIL }
var
i : longint;
j : word;
begin
j:=5;
byte(i):=j;
end.