diff options
author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-04-04 19:31:55 +0000 |
---|---|---|
committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-04-04 19:31:55 +0000 |
commit | ca5daade4265826ec95317f38804f314066ad25e (patch) | |
tree | 26b747a57770d3bdfd392168acc53371d83a4341 /tests/tbs | |
parent | 2f92287435c813eabaae6ee55c8a9faed388d7b2 (diff) | |
download | fpc-ca5daade4265826ec95317f38804f314066ad25e.tar.gz |
* allow any untyped parameter to be passed to a untyped constref parameter
+ added test
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@41829 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/tbs')
-rw-r--r-- | tests/tbs/tb0656.pp | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/tests/tbs/tb0656.pp b/tests/tbs/tb0656.pp new file mode 100644 index 0000000000..5781c3890f --- /dev/null +++ b/tests/tbs/tb0656.pp @@ -0,0 +1,27 @@ +{ %NORUN } + +program tb0656; + +{$mode objfpc} + +procedure Test1(const aArg); +begin +end; + +procedure Test2(const aArg); +begin + Test1(aArg); +end; + +procedure Test3(constref aArg); +begin +end; + +procedure Test4(constref aArg); +begin + Test3(aArg); +end; + +begin + +end. |