Browse Source

* new test

git-svn-id: trunk@6001 -
peter 18 years ago
parent
commit
1721992acc
3 changed files with 37 additions and 0 deletions
  1. 2 0
      .gitattributes
  2. 6 0
      tests/webtbs/tw7381.pp
  3. 29 0
      tests/webtbs/uw7381.pp

+ 2 - 0
.gitattributes

@@ -7927,6 +7927,7 @@ tests/webtbs/tw7285.pp svneol=native#text/plain
 tests/webtbs/tw7329.pp svneol=native#text/plain
 tests/webtbs/tw7329.pp svneol=native#text/plain
 tests/webtbs/tw7372.pp svneol=native#text/plain
 tests/webtbs/tw7372.pp svneol=native#text/plain
 tests/webtbs/tw7379.pp svneol=native#text/plain
 tests/webtbs/tw7379.pp svneol=native#text/plain
+tests/webtbs/tw7381.pp svneol=native#text/plain
 tests/webtbs/tw7391.pp svneol=native#text/plain
 tests/webtbs/tw7391.pp svneol=native#text/plain
 tests/webtbs/tw7425.pp svneol=native#text/plain
 tests/webtbs/tw7425.pp svneol=native#text/plain
 tests/webtbs/tw7440.pp svneol=native#text/plain
 tests/webtbs/tw7440.pp svneol=native#text/plain
@@ -7999,6 +8000,7 @@ tests/webtbs/uw4352e.pp svneol=native#text/plain
 tests/webtbs/uw4541.pp svneol=native#text/plain
 tests/webtbs/uw4541.pp svneol=native#text/plain
 tests/webtbs/uw6203.pp svneol=native#text/plain
 tests/webtbs/uw6203.pp svneol=native#text/plain
 tests/webtbs/uw6767.pp svneol=native#text/plain
 tests/webtbs/uw6767.pp svneol=native#text/plain
+tests/webtbs/uw7381.pp svneol=native#text/plain
 utils/Makefile svneol=native#text/plain
 utils/Makefile svneol=native#text/plain
 utils/Makefile.fpc svneol=native#text/plain
 utils/Makefile.fpc svneol=native#text/plain
 utils/README -text
 utils/README -text

+ 6 - 0
tests/webtbs/tw7381.pp

@@ -0,0 +1,6 @@
+{ %recompile }
+
+uses uw7381;
+
+begin
+end.

+ 29 - 0
tests/webtbs/uw7381.pp

@@ -0,0 +1,29 @@
+{$mode objfpc}
+unit uw7381;
+
+
+interface
+
+
+type
+    c1 = class
+        procedure p1;
+    end;
+    c1array = array [0..1] of c1;
+
+
+implementation
+
+
+procedure c1.p1;
+begin
+end;
+
+
+procedure test(const a: c1array);inline;
+begin
+    a[0].p1;
+end;
+
+
+end.