浏览代码

+ test

git-svn-id: trunk@13999 -
paul 15 年之前
父节点
当前提交
c2e749797b
共有 2 个文件被更改,包括 17 次插入0 次删除
  1. 1 0
      .gitattributes
  2. 16 0
      tests/test/tassignmentoperator1.pp

+ 1 - 0
.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

+ 16 - 0
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.
+