fpc/bugs/bug0018.pp
1998-03-25 11:26:49 +00:00

12 lines
68 B
ObjectPascal

type
p = ^x;
x = byte;
var
b : p;
begin
b^:=12;
end.