Add procedure type expression

source.elna

@@ -891,6 +891,19 @@ begin
   return 0
 end
 
+proc f();
 begin
+  write_s("In f\n")
+end
+
+proc g();
+var x: ^proc()
+begin
+  x := cast(f: ^proc())
+  (* x() *)
+end
+
+begin
+  g()
   exit(process(cast(count: Int), cast(parameters: ^^Char)))
 end.