tests/test/tgenconst7.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{%FAIL}
{$mode objfpc}
{
  test type mismatch when specializing constant values
}
program tgenconst7;

type
	generic TInteger<const U: integer> = record end;

var
	a: specialize TInteger<'string'>;
begin
end.