+ 246

bugs/bug0246.pp

@@ -0,0 +1,13 @@
+type
+  tref=record
+    ofs : longint;
+  end;
+
+procedure p(const ref:tref);
+begin
+  with ref do
+   ofs:=ofs+1;   { This should issue an error, because ref is const ! }
+end;
+
+begin
+end.

bugs/readme.txt

@@ -333,3 +333,4 @@ bug0243.pp   Arguments of functions are computed from right to left this
              is against pascal convention
 bug0244.pp   nested procedures can't have same name as global ones
 bug0245.pp   assigning pointers to address of consts is allowed (refused by BP !) 
+bug0246.pp   const para can be changed without error