From f547dae96d770cc7bc27d3790d0d87bb8e37963d Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 7 Oct 2026 10:15:16 +0200
Subject: Make procedure pointers compatible with normal pointers

---
 testsuite/fail_compilation/assign_procedure.elna | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 testsuite/fail_compilation/assign_procedure.elna

(limited to 'testsuite/fail_compilation')

diff --git a/testsuite/fail_compilation/assign_procedure.elna b/testsuite/fail_compilation/assign_procedure.elna
new file mode 100644
index 0000000..7d69724
--- /dev/null
+++ b/testsuite/fail_compilation/assign_procedure.elna
@@ -0,0 +1,11 @@
+module
+
+proc f()
+return
+
+proc g()
+begin
+  f := g (* @Error Cannot assign to a value of type 'proc\(\)', because it is constant or contains constant members *)
+return
+
+end.
-- 
cgit v1.2.3