diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-06-20 19:50:20 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-06-20 19:50:20 +0000 |
commit | 88f2cd802902b5c5b54a0b7c2a03f4f15427dd53 (patch) | |
tree | 89069a10e8eb951a7f7caf406759778bb0d77f56 /tests/webtbf/tw26363a.pp | |
parent | 40a05b9395153a7153d493e523cbdd402da7923d (diff) | |
download | fpc-88f2cd802902b5c5b54a0b7c2a03f4f15427dd53.tar.gz |
* don't allow default parameter values for parameter types that don't accept
constant values (i.e., anything non-value/const/constref) (mantis #263363)
o fixed default parameter value for var-parameter in chmreader
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@28016 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbf/tw26363a.pp')
-rw-r--r-- | tests/webtbf/tw26363a.pp | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/webtbf/tw26363a.pp b/tests/webtbf/tw26363a.pp new file mode 100644 index 0000000000..35db48afac --- /dev/null +++ b/tests/webtbf/tw26363a.pp @@ -0,0 +1,13 @@ +{ %fail } + +{$mode objfpc} + +procedure test(out x: longint = 0); +begin +end; + +var + l: longint; +begin + test(l); +end. |