mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 14:23:25 +02:00
a535d54bcb
+ added tests (original test was only mode fpc, test for mode delphi is added as well) git-svn-id: trunk@35010 -
24 lines
258 B
ObjectPascal
24 lines
258 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw30939a;
|
|
|
|
{$MODE delphi}
|
|
|
|
Type
|
|
TGData<T> = record
|
|
b: T
|
|
end;
|
|
|
|
TGWrapper<T> = record
|
|
a: TGData<T>
|
|
end;
|
|
|
|
Function DoSomething<T>: TGWrapper<T>;
|
|
Begin
|
|
result.a.b := default(T)
|
|
End;
|
|
|
|
Begin
|
|
DoSomething<LongInt>;
|
|
End.
|