* const to var not detected

tests/tbf/tb0106.pp

@@ -0,0 +1,13 @@
+{ %fail }
+
+procedure ld_var(var a);
+begin
+end;
+
+procedure ld_const(const b);
+begin
+  ld_var(b);
+end;
+
+begin
+end.