mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-31 21:06:01 +02:00
13 lines
225 B
ObjectPascal
13 lines
225 B
ObjectPascal
{%FAIL}
|
|
{$mode objfpc}
|
|
{
|
|
test def compare fail with specialized types
|
|
}
|
|
program tgenconst11;
|
|
type
|
|
generic TConst<const U: integer> = class end;
|
|
var
|
|
a:specialize TConst<10>;
|
|
begin
|
|
a:=specialize TConst<'string'>.Create;
|
|
end |