Browse Source

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

git-svn-id: trunk@10894 -

Jonas Maebe 17 years ago
parent
commit
edae55a3a9
3 changed files with 35 additions and 0 deletions
  1. 2 0
      .gitattributes
  2. 8 0
      tests/webtbs/tw11182.pp
  3. 25 0
      tests/webtbs/uw11182.pp

+ 2 - 0
.gitattributes

@@ -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 - 0
tests/webtbs/tw11182.pp

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

+ 25 - 0
tests/webtbs/uw11182.pp

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