@@ -2608,7 +2608,13 @@ implementation
p1:=cerrornode.create;
consume(_ID);
end;
- end;
+ end
+ else
+ begin
+ p1.destroy;
+ p1:=cerrornode.create;
+ consume(_ID);
arraydef:
begin
@@ -0,0 +1,9 @@
+{ %FAIL }
+program casedottest;
+{$mode ObjFpc}
+type
+ TShape=(shRectangle, shEllipse, shNone);
+var
+ A: TShape.;
+begin
+end.