mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
32 lines
493 B
ObjectPascal
32 lines
493 B
ObjectPascal
{ %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.
|
|
|