new bug

bugs/bug0157.pp

@@ -0,0 +1,5 @@
+program write_it;
+var x:real;
+begin
+write(x:5.2);
+end.

bugs/bug0159.pp

@@ -0,0 +1,22 @@
+Type TParent = Object
+       Procedure SomeProc;
+       end;
+
+     TChild = Object(TParent)
+       Procedure SomeProc; virtual;
+       end;
+
+
+       Procedure TParent.someproc;
+       Begin
+       end;
+
+
+      procedure TChild.Someproc;
+      Begin
+      end;
+
+
+
+Begin
+end.