diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-06-05 12:18:34 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-06-05 12:18:34 +0000 |
commit | a7346241935745c70e5af9b79b8e797dbabdd53b (patch) | |
tree | b5da9493c5186a64cefd8cf42a45e7a74c8631fc | |
parent | ff20dad8887a6b297bdc7681736be35f02f04458 (diff) | |
download | fpc-a7346241935745c70e5af9b79b8e797dbabdd53b.tar.gz |
+ added test file missing from merge in r31984
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_3_0@33915 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | tests/test/jvm/tnestcallpass1.pp | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/tests/test/jvm/tnestcallpass1.pp b/tests/test/jvm/tnestcallpass1.pp new file mode 100644 index 0000000000..e021debfca --- /dev/null +++ b/tests/test/jvm/tnestcallpass1.pp @@ -0,0 +1,31 @@ +{$mode delphi} + +program tnestcallpass1; + +type + tncp1_c = class + procedure test; + end; + + +procedure tncp1_c.test; + +var + l: longint; + + function nest(const s: unicodestring): longint; + begin + l:=5; + if length(s)=5 then + nest:=l + else + nest:=3; + end; + +begin + nest('abcdef'); +end; + + +begin +end. |