mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
e85075de7f
nmat.pas: * correctly disable type checks if one of the arguments for MOD, DIV, SHR, SHL, NOT, -X and +X is a generic type parameter + added tests git-svn-id: trunk@27535 -
25 lines
324 B
ObjectPascal
25 lines
324 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw25604;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
type
|
|
TA<T> = class
|
|
private
|
|
F1, F2: T;
|
|
procedure Foo;
|
|
end;
|
|
|
|
procedure TA<T>.Foo;
|
|
var
|
|
b: Integer;
|
|
begin
|
|
b := (b and F1) shr F2; // pass
|
|
b := (b and not F1) or (b shl F2); // Error: Operator is not overloaded: "LongInt" shl "<undefined type>"
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|