mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 11:18:18 +02:00
90844c2027
The main adjustments were as follows: - fixing coding style and identation - fixing some typos - using a better name for the property in tcallcandidates which holds the symbols created for anonymous parameter values
24 lines
387 B
ObjectPascal
24 lines
387 B
ObjectPascal
{%FAIL}
|
|
{$mode objfpc}
|
|
{$modeswitch implicitfunctionspecialization}
|
|
{
|
|
All generic parameters must be used in the paramter list
|
|
}
|
|
program timpfuncspez30;
|
|
|
|
type
|
|
generic TAnyRecord<U> = record
|
|
end;
|
|
|
|
type
|
|
TSomeRecord = specialize TAnyRecord<Integer>;
|
|
|
|
generic procedure DoThis<T>(aRecord: specialize TAnyRecord<Integer>);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
rec: TSomeRecord;
|
|
begin
|
|
DoThis(rec);
|
|
end. |