bug0177.pp 52 B

123456
  1. program p;
  2. var
  3. l : longint;
  4. begin
  5. p.l:=1;
  6. end.