* ensure that the correct amount of parameters is used for an operator overload (this is essentially important for unary operators that were declared with two arguments)

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@41868 3ad0048d-3df7-0310-abae-a5850022a9f2

3 files changed, 39 insertions, 0 deletions

diff --git a/tests/tbf/tb0268.pp b/tests/tbf/tb0268.pp
new file mode 100644
index 0000000000..c6bfc43b5d
--- /dev/null
+++ b/tests/tbf/tb0268.pp
@@ -0,0 +1,13 @@
+{ %FAIL }
+
+program tb0268;
+
+{$mode objfpc}
+
+operator Not (aArg1: TObject; aArg2: TObject): TObject;
+begin
+end;
+
+begin
+
+end.
diff --git a/tests/tbf/tb0269.pp b/tests/tbf/tb0269.pp
new file mode 100644
index 0000000000..273b006076
--- /dev/null
+++ b/tests/tbf/tb0269.pp
@@ -0,0 +1,13 @@
+{ %FAIL }
+
+program tb0269;
+
+{$mode objfpc}
+
+operator + (aArg1: TObject; aArg2: TObject; aArg3: TObject): TObject;
+begin
+end;
+
+begin
+
+end.
diff --git a/tests/tbf/tb0270.pp b/tests/tbf/tb0270.pp
new file mode 100644
index 0000000000..5cc62a463d
--- /dev/null
+++ b/tests/tbf/tb0270.pp
@@ -0,0 +1,13 @@
+{ %FAIL }
+
+program tb0270;
+
+{$mode objfpc}
+
+operator / (aArg1: TObject): TObject;
+begin
+end;
+
+begin
+
+end.