mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
d4635f10df
ptype.pas, resolve_forward_types: * in case of the def of the forward being the same as the genericdef of the def the forwarddef belongs to the typesym needs to be changed to the one of the specialization tests/webtbs/tw28674.pp: * adjusted text git-svn-id: trunk@31987 -
18 lines
166 B
ObjectPascal
18 lines
166 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw28674;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
generic node<T> = object
|
|
data: T;
|
|
link: ^node;
|
|
end;
|
|
|
|
tintnode = specialize node<int32>;
|
|
|
|
begin
|
|
|
|
end.
|