diff --git a/tests/test/wasm/twasmexternref4f.pp b/tests/test/wasm/twasmexternref4f.pp new file mode 100644 index 0000000000..8246a2affd --- /dev/null +++ b/tests/test/wasm/twasmexternref4f.pp @@ -0,0 +1,21 @@ +{ %cpu=wasm32 } +{ %fail } + +program twasmexternref4f; + +{$MODE objfpc} + +procedure testproc(out p); +begin +end; + +procedure testproc2; +var + q: WasmExternRef; +begin + { WasmExternRef cannot be passed as an untyped out parameter } + testproc(q); +end; + +begin +end.