diff options
Diffstat (limited to 'tests/webtbs/tw26976.pp')
| -rw-r--r-- | tests/webtbs/tw26976.pp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/webtbs/tw26976.pp b/tests/webtbs/tw26976.pp new file mode 100644 index 0000000000..f8ec0e1854 --- /dev/null +++ b/tests/webtbs/tw26976.pp @@ -0,0 +1,17 @@ +{ %norun } + +{$MODE OBJFPC} +program test; + +type + TTest = class end; + +procedure E(Arg1: array of UTF8String); +begin end; + +procedure E(Arg1: array of TTest); +begin end; + +begin + E(['aa']); // Incompatible types: got "Constant String" expected "TTest" +end. |