mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
34394d6925
ninl.pas, tinlinenode.pass_typecheck: * if the first parameter of an Assert is a undefineddef node then accept it as well if the node is part of a generic function/method + added test git-svn-id: trunk@27875 -
24 lines
306 B
ObjectPascal
24 lines
306 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw26180;
|
|
|
|
{$MODE DELPHI}
|
|
{$Assertions on}
|
|
|
|
type
|
|
TA<T> = class
|
|
private
|
|
F: T;
|
|
procedure Foo;
|
|
end;
|
|
|
|
procedure TA<T>.Foo;
|
|
begin
|
|
Assert(F <> 0); // Error: Boolean expression expected, but got "<undefined type>"
|
|
// same for >, <, <=, >=, =
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|