mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:48:02 +02:00
7b675b6769
+ added test that shows the linking error if not done so (otherwise that should already be covered by trtti15.pp) git-svn-id: trunk@37083 -
20 lines
217 B
ObjectPascal
20 lines
217 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tb0630;
|
|
|
|
uses
|
|
typinfo;
|
|
|
|
type
|
|
TTest = record
|
|
test: procedure(aTest: array of LongInt);
|
|
end;
|
|
|
|
TTestArray = array[0..1] of TTest;
|
|
|
|
var
|
|
ti: PTypeInfo;
|
|
begin
|
|
ti := TypeInfo(TTest);
|
|
end.
|