mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-14 09:26:02 +02:00
29 lines
324 B
ObjectPascal
29 lines
324 B
ObjectPascal
program bug0293;
|
|
|
|
{$ifdef fpc}{$mode objfpc}{$endif}
|
|
|
|
TYPE Ttype = class
|
|
field :LONGINT;
|
|
CONSTRUCTOR DOSOMETHING;
|
|
END;
|
|
|
|
CONSTRUCTOR TTYPE.DOSOMETHING;
|
|
BEGIN
|
|
END;
|
|
|
|
var
|
|
longint : longint;
|
|
|
|
procedure p;
|
|
VAR
|
|
TTYPE : TTYPE;
|
|
BEGIn
|
|
ttype:=ttype.dosomething;
|
|
END;
|
|
|
|
begin
|
|
p;
|
|
end.
|
|
|
|
|