+ 182

bugs/bug0182.pp

@@ -0,0 +1,14 @@
+TYPE Rec = RECORD
+             x:WORD;
+             y:WORD;
+           END;
+ 
+VAR s:WORD;
+    r:Rec;
+ 
+CONST p1:POINTER = @s;    { Works fine }
+      p2:POINTER = @R.x;  { illegal expression }
+ 
+BEGIN
+END.
+

bugs/readme.txt

@@ -233,3 +233,6 @@ bug0152.pp   End value of loop variable must be calculated before loop
 bug0163.pp   missing <= and >= operators for sets.
 bug0169.pp   missing new(type) support for not object/class
 bug0171.pp   missing typecasting in constant expressions
+bug0182.pp   @record.field doesn't work in constant expr
+
+