paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ test for issue #27744

Browse Source 
git-svn-id: trunk@34790 -
This commit is contained in:
florian 2016-11-05 23:05:46 +00:00
parent 5df9b994d1
commit 8bbd2e4030
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -15057,6 +15057,7 @@ tests/webtbs/tw2767.pp svneol=native#text/plain
tests/webtbs/tw27691.pp svneol=native#text/plain tests/webtbs/tw27691.pp svneol=native#text/plain
tests/webtbs/tw2771.pp svneol=native#text/plain tests/webtbs/tw2771.pp svneol=native#text/plain
tests/webtbs/tw2772.pp svneol=native#text/plain tests/webtbs/tw2772.pp svneol=native#text/plain
tests/webtbs/tw27744.pp svneol=native#text/pascal
tests/webtbs/tw27750a.pp svneol=native#text/pascal tests/webtbs/tw27750a.pp svneol=native#text/pascal
tests/webtbs/tw27750b.pp svneol=native#text/pascal tests/webtbs/tw27750b.pp svneol=native#text/pascal
tests/webtbs/tw2776.pp svneol=native#text/plain tests/webtbs/tw2776.pp svneol=native#text/plain

19
tests/webtbs/tw27744.pp Normal file
View File

@ -0,0 +1,19 @@
{ %opt=-Oodfa -Sew }
{$mode objfpc}
type
tarr = array of longint;
var
a: array of longint;
function IndexOfValue(const a: tarr; l: longint): longint;
begin
for result:=low(a) to high(a) do
if a[result]=l then
exit;
result:=-1;
end;
begin
end.