mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:38:14 +02:00
b0458b55a3
The changes are built up in a way that all operators on two given types are not allowed if a default implementation for that operator exists. This implies that there is a possibility to have a overload work for (in this order) type A and B, but not for B and A. This is for example the case for Set + Enum (which seems to have a default implementation) where Enum + Set is allowed. The added tests try to detect as many default implementations as feasible, but can't cover everything... git-svn-id: trunk@21975 -
16 lines
173 B
ObjectPascal
16 lines
173 B
ObjectPascal
{ %FAIL }
|
|
program toperator35;
|
|
|
|
type
|
|
TTest = (One, Two, Three);
|
|
TTests = set of TTest;
|
|
|
|
operator in (left: TTest; right: TTests) res : Boolean;
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|