paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test for last commit

Browse Source 
git-svn-id: trunk@26693 -
This commit is contained in:
florian 2014-02-06 19:51:43 +00:00
parent 3eaecd07a6
commit c41d043ac8
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

18
tests/webtbs/tw25685.pp Normal file
View File

@ -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.