mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 11:18:18 +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
172 B
ObjectPascal
16 lines
172 B
ObjectPascal
{ %FAIL }
|
|
program toperator25;
|
|
|
|
type
|
|
TTest = (One, Two, Three);
|
|
TTests = set of TTest;
|
|
|
|
operator + (left: TTests; right: TTests) res : TTests;
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|