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

13 lines
80 B
ObjectPascal

type
b = ^x;
x = byte;
var
pb : b;
begin
pb^:=10;
end.