blob: f1401de454219fd5756358d28872bd4a9ede8b75 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %OPT= -Un }
{ Old file: tbs0176.pp }
{ unit.symbol not allowed for implementation vars OK 0.99.9 (PM) }
{ no unit name checking !! }
unit tb150_wrong;
interface
var
l1 : longint;
implementation
var
l2 : longint;
begin
tb150_wrong.l1:=1;
tb150_wrong.l2:=1;
end.
|
