+ test

git-svn-id: trunk@13999 -

.gitattributes

@@ -8123,6 +8123,7 @@ tests/test/tarray6.pp svneol=native#text/plain
 tests/test/tarray7.pp svneol=native#text/plain
 tests/test/tasmread.pp svneol=native#text/plain
 tests/test/tasout.pp svneol=native#text/plain
+tests/test/tassignmentoperator1.pp svneol=native#text/pascal
 tests/test/tbopr.pp svneol=native#text/plain
 tests/test/tbrtlevt.pp svneol=native#text/plain
 tests/test/tcase1.pp svneol=native#text/plain

tests/test/tassignmentoperator1.pp

@@ -0,0 +1,16 @@
+program tassignmentoperator1;
+
+{$mode objfpc}
+
+operator := (S1, S2: String): Integer;
+begin
+  Result := Length(S1);
+end;
+
+var
+  S: String;
+  V: Integer;
+begin
+  V := S;
+end.
+