blob: 0979147cd62b39871162eb9d12279a5167eff27c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{ %norun% }
program tw18127;
{$mode objfpc}{$H+}
type
TBar = class
public
type
TSomeInt = integer;
end;
TFoo1 = class(TBar)
public
const
one = 1;
type
TFoo2 = TSomeInt; // was error: Identifier not found "TSomeInt"
TFoo3 = class
function Func: TFoo2;
end;
end;
function TFoo1.TFoo3.Func: TFoo2; // was error: Identifier not found "TFoo2"
begin
Result := one; // was error: Identifier not found "one"
end;
begin
end.
|
