+ 176,177

bugs/bug0171.pp

@@ -2,6 +2,6 @@ type
   pstring=^string;
 const
   drivestr:string='c:';
-  pdrivestr:pstring=@drivestr;
+  pdrivestr:pstring=pstring(@drivestr);
 begin
 end.

bugs/bug0176.pp

@@ -0,0 +1,15 @@
+unit u;
+interface
+
+var
+  l1 : longint;
+
+implementation
+
+var
+  l2 : longint;
+  
+begin
+  u.l1:=1;
+  u.l2:=1;
+end.  

bugs/bug0177.pp

@@ -0,0 +1,6 @@
+program p;
+var
+  l : longint;
+begin
+  p.l:=1;
+end.  

bugs/readme.txt

@@ -226,3 +226,6 @@ bug0163.pp   missing <= and >= operators for sets.
 bug0169.pp   missing new(type) support for not object/class
 bug0171.pp   missing typecasting in constant expressions
 bug0172.pp   with with absolute seg:ofs should not be possible
+bug0176.pp   unit.symbol not allowed for implementation vars
+bug0177.pp   program.symbol not allowed (almost the same as bug 176)
+