mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
790f6b0a4b
rtl: fix fgl to use the new syntax tests: fix generics tests to use the new syntax git-svn-id: trunk@15646 -
24 lines
339 B
ObjectPascal
24 lines
339 B
ObjectPascal
unit uw14124;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type
|
|
generic TGenericType<TParamType> = class
|
|
private
|
|
var
|
|
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. |