mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-19 19:19:32 +01:00
23 lines
331 B
ObjectPascal
23 lines
331 B
ObjectPascal
unit uw14124;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type
|
|
generic TGenericType<TParamType> = class
|
|
var private
|
|
FDefault: TParamType; static;
|
|
F: TParamType;
|
|
public
|
|
procedure P;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TGenericType.P;
|
|
begin
|
|
F := FDefault; // <====== unit1.pas(21,16) Fatal: Internal error 200108121
|
|
end;
|
|
|
|
end. |