paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test for mantis #11182 (one which also crashed 2.3.1 before

Browse Source 
the fix)

git-svn-id: trunk@10894 -
This commit is contained in:
Jonas Maebe 2008-05-06 13:45:25 +00:00
parent 2df5878ee4
commit edae55a3a9
3 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -8171,6 +8171,7 @@ tests/webtbs/tw11139.pp svneol=native#text/plain
tests/webtbs/tw11169.pp svneol=native#text/plain tests/webtbs/tw11169.pp svneol=native#text/plain
tests/webtbs/tw1117.pp svneol=native#text/plain tests/webtbs/tw1117.pp svneol=native#text/plain
tests/webtbs/tw11176.pp svneol=native#text/plain tests/webtbs/tw11176.pp svneol=native#text/plain
tests/webtbs/tw11182.pp svneol=native#text/plain
tests/webtbs/tw11216.pp svneol=native#text/plain tests/webtbs/tw11216.pp svneol=native#text/plain
tests/webtbs/tw1122.pp svneol=native#text/plain tests/webtbs/tw1122.pp svneol=native#text/plain
tests/webtbs/tw1123.pp svneol=native#text/plain tests/webtbs/tw1123.pp svneol=native#text/plain
@ -9080,6 +9081,7 @@ tests/webtbs/uw0701c.pp svneol=native#text/plain
tests/webtbs/uw0701d.pp svneol=native#text/plain tests/webtbs/uw0701d.pp svneol=native#text/plain
tests/webtbs/uw0701e.pp svneol=native#text/plain tests/webtbs/uw0701e.pp svneol=native#text/plain
tests/webtbs/uw0809.pp svneol=native#text/plain tests/webtbs/uw0809.pp svneol=native#text/plain
tests/webtbs/uw11182.pp svneol=native#text/plain
tests/webtbs/uw1181.inc svneol=native#text/plain tests/webtbs/uw1181.inc svneol=native#text/plain
tests/webtbs/uw1279.pp svneol=native#text/plain tests/webtbs/uw1279.pp svneol=native#text/plain
tests/webtbs/uw1331.pp svneol=native#text/plain tests/webtbs/uw1331.pp svneol=native#text/plain

8
tests/webtbs/tw11182.pp Normal file
View File

@ -0,0 +1,8 @@
{ %recompile }
uses
uw11182;
begin
test(paramcount);
end.

25
tests/webtbs/uw11182.pp Normal file
View File

@ -0,0 +1,25 @@
unit uw11182;
{$inline on}
interface
procedure test(k: longint); inline;
implementation
function f(a: longint): longint; inline;
begin
f:=a+a;
end;
procedure test(k: longint);
var
i: longint;
begin
for i := f(k) to f(k+5) do
writeln(i);
end;
end.