+ 302

bugs/bug0302.pp

@@ -0,0 +1,19 @@
+{$ifdef fpc}{$mode objfpc}{$endif}
+type
+  c1=class
+    Ffont : longint;
+    property Font:longint read Ffont;
+  end;
+
+  c2=class(c1)
+    function GetFont:longint;
+  end;
+
+function c2.GetFont:longint;
+begin
+  result:=Font;
+  result:=inherited Font;
+end;
+
+begin
+end.

bugs/readme.txt

@@ -355,7 +355,8 @@ Fixed bugs:
   bug0298.pp   l1+l2:=l1+l2 gives no error                          OK 0.99.13 (PFV)
   bug0300.pp   crash if method on non existing object is parsed (form bug 651) OK 0.99.13 (PFV)
   bug0301.pp   crash if destructor without object name is parsed    OK 0.99.13 (PFV)
-
+  bug0302.pp   inherited property generates wrong assembler         OK 0.99.13 (PFV)
+  
 
 Unproducable bugs:
 ------------------