From 8dfce5027824aef7a19f2d4b72b3f0a76f00aefd Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 4 Aug 1999 09:43:03 +0000
Subject: [PATCH] Fixed VarDef IDENTIFIER '[' ExpList ']' rule

---
 harbour/source/compiler/harbour.y | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/harbour/source/compiler/harbour.y b/harbour/source/compiler/harbour.y
index e84d9934b4..fdfd7c2d25 100644
--- a/harbour/source/compiler/harbour.y
+++ b/harbour/source/compiler/harbour.y
@@ -957,8 +957,8 @@ VarDef     : IDENTIFIER                                   { cVarType = ' '; AddV
            | IDENTIFIER AS_ARRAY     INASSIGN Expression  { cVarType = 'A'; AddVar( $1 ); PopId( $1 ); }
            | IDENTIFIER AS_BLOCK     INASSIGN Expression  { cVarType = 'B'; AddVar( $1 ); PopId( $1 ); }
            | IDENTIFIER AS_OBJECT    INASSIGN Expression  { cVarType = 'O'; AddVar( $1 ); PopId( $1 ); }
-           | IDENTIFIER '[' ExpList ']'                   { cVarType = ' '; AddVar( $1 ); DimArray( $3 ); }
-           | IDENTIFIER '[' ExpList ']' AS_ARRAY          { cVarType = 'A'; AddVar( $1 ); DimArray( $3 ); }
+           | IDENTIFIER '[' ExpList ']'                   { cVarType = ' '; AddVar( $1 ); DimArray( $3 ); PopId( $1 ); }
+           | IDENTIFIER '[' ExpList ']' AS_ARRAY          { cVarType = 'A'; AddVar( $1 ); DimArray( $3 ); PopId( $1 ); }
            ;
 
 FieldsDef  : FIELD { iVarScope =VS_FIELD; } FieldList Crlf