mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 14:48:47 +02:00
20 lines
339 B
ObjectPascal
20 lines
339 B
ObjectPascal
{ %skiptarget=aix }
|
|
{ %opt=-gs }
|
|
program ustabslink;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, SysUtils, fgl;
|
|
|
|
type
|
|
TMyClass = class end;
|
|
TControlObjectSpecializedWithAVeryLongNameOfClass = class end;
|
|
|
|
TMyType = TControlObjectSpecializedWithAVeryLongNameOfClass; // Error
|
|
|
|
TSpecControlInfo = specialize TFPGList<TMyType>;
|
|
|
|
begin
|
|
end.
|