fpcsrc/tests/tbs/tb0147.pp


1
2
3
4
5
6
7
8
9

{ Old file: tbs0177.pp }
{ program.symbol not allowed (almost the same as bugs 176) OK 0.99.9 (PM) }

program p;
var
  l : longint;
begin
  p.l:=1;
end.