mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 01:47:59 +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 toperator28;
|
|
|
|
type
|
|
TTest = (One, Two, Three);
|
|
TTests = set of TTest;
|
|
|
|
operator >< (left: TTests; right: TTests) res : TTests;
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|