mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:08:07 +02:00
30 lines
401 B
ObjectPascal
30 lines
401 B
ObjectPascal
{ %version=1.1 }
|
|
{ %fail }
|
|
{ Old file: tbs0293.pp }
|
|
{ no error with variable name = type name }
|
|
|
|
{$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.
|