+ problem when passing a typecasted class instance to a var parameter

with -CR

git-svn-id: trunk@2741 -

.gitattributes

@@ -5710,6 +5710,7 @@ tests/test/trange2.pp svneol=native#text/plain
 tests/test/trange3.pp svneol=native#text/plain
 tests/test/trange4.pp svneol=native#text/plain
 tests/test/trange5.pp svneol=native#text/plain
+tests/test/trangeob.pp svneol=native#text/plain
 tests/test/tresstr.pp svneol=native#text/plain
 tests/test/trtti1.pp svneol=native#text/plain
 tests/test/trtti2.pp svneol=native#text/plain

tests/test/trangeob.pp

@@ -0,0 +1,19 @@
+{ %opt=-CR -S2 }
+
+type
+  tc1 = class
+  end;
+
+  tc2 = class(tc1)
+  end;
+
+procedure t(var c: tc2);
+begin
+end;
+
+var
+  c: tc1;
+begin
+  c := tc2.create;
+  t(tc2(c));
+end.