mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
115ddf4364
- use specially implemented type search routine in case of declaration with colon (on E: Exception do) - parse nested types in case of declaration without colon (on Exception do) + test fixes issue #0022225 git-svn-id: trunk@25412 -
18 lines
169 B
ObjectPascal
18 lines
169 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw22225;
|
|
|
|
{$mode objfpc}
|
|
type
|
|
TT = class
|
|
public
|
|
type
|
|
TErr = class
|
|
end;
|
|
end;
|
|
begin
|
|
try
|
|
except on TT.TErr do;
|
|
end;
|
|
end.
|