mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 03:28:40 +02:00
13 lines
109 B
ObjectPascal
13 lines
109 B
ObjectPascal
{ %FAIL }
|
|
|
|
var
|
|
i : longint;
|
|
j,j2 : word;
|
|
k : byte;
|
|
|
|
begin
|
|
j:=5;
|
|
byte(i):=j;
|
|
longint(j):=12;
|
|
end.
|