*** empty log message ***

tests/webtbs/tw1207.pp

@@ -0,0 +1,25 @@
+{$mode objfpc}
+program change;
+
+type
+  aclasstype = class
+    prop : integer;
+  end;
+
+procedure trychange (const aclass : aclasstype);
+begin
+  aclass.prop := 5;
+end;
+
+var
+  aclass : aclasstype;
+
+begin
+  aclass := AClassType.Create;
+  try
+    trychange (aclass)
+  finally
+    aclass.free;
+  end;
+end.
+