merge r14141 from cpstrnew branch by paul:

+ test

git-svn-id: trunk@19097 -

.gitattributes

@@ -9943,6 +9943,7 @@ tests/test/tcpstr3.pp svneol=native#text/plain
 tests/test/tcpstr4.pp svneol=native#text/plain
 tests/test/tcpstr5.pp svneol=native#text/plain
 tests/test/tcpstr6.pp svneol=native#text/plain
+tests/test/tcpstr7.pp svneol=native#text/plain
 tests/test/tcstring1.pp svneol=native#text/pascal
 tests/test/tcstring2.pp svneol=native#text/pascal
 tests/test/tdel1.pp svneol=native#text/plain

tests/test/tcpstr7.pp

@@ -0,0 +1,19 @@
+{$mode objfpc}{$H+}
+{$hints off}
+
+procedure APos(const substr: shortstring; const s: RawByteString);
+begin
+end;
+
+procedure APos(const Substr: RawByteString; const Source: RawByteString);
+begin
+end;
+
+const
+  C = '\';
+
+begin
+  APos(C + '.' + C, 'Test');
+end.
+
+