+ test for last commit

git-svn-id: trunk@26693 -

.gitattributes

@@ -13802,6 +13802,7 @@ tests/webtbs/tw2540.pp svneol=native#text/plain
 tests/webtbs/tw25551.pp svneol=native#text/plain
 tests/webtbs/tw25598.pp svneol=native#text/plain
 tests/webtbs/tw2561.pp svneol=native#text/plain
+tests/webtbs/tw25685.pp svneol=native#text/pascal
 tests/webtbs/tw2588.pp svneol=native#text/plain
 tests/webtbs/tw2589.pp svneol=native#text/plain
 tests/webtbs/tw2594.pp svneol=native#text/plain

tests/webtbs/tw25685.pp

@@ -0,0 +1,18 @@
+{ %OPT=-O2 }
+program Project1;
+
+procedure Foo(StartPos, EndPos: Cardinal);
+var
+  s:string;
+begin
+  if (Cardinal((@s[1])^) >= StartPos) and (Cardinal((@s[1])^) <= EndPos) then
+    writeln;
+end;
+
+var
+  S: string;
+
+begin
+  foo(1,2);
+  writeln(PByte(@S[1])^ = PByte(@S[1])^ );
+end.