freepascal.compiler/bugs/bug0293.pp

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.