freepascal.compiler/bugs/bug0038.pp

CONST ps : ^STRING = nil;

begin
end.