From 17ebeb8ebe2d67fd1efc8fa47752356b0dc1d321 Mon Sep 17 00:00:00 2001
From: Zeex <zeex@rocketmail.com>
Date: Mon, 23 Oct 2017 08:04:02 +0600
Subject: [PATCH] Revert "triggers an error for issue #129"

This reverts commit 9e4a2b283fd01549d05058c8946ecee974e30dbe.

Reverting because of #198.
---
 source/compiler/sc3.c | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/source/compiler/sc3.c b/source/compiler/sc3.c
index f7e15f6..2665ae8 100644
--- a/source/compiler/sc3.c
+++ b/source/compiler/sc3.c
@@ -1064,7 +1064,6 @@ static int hier13(value *lval)
     int flab2=getlabel();
     value lval2={0};
     int array1,array2;
-    int asize1 = -1, asize2 = -1; /* -1 indicates that the value is not an array */
 
     if (lvalue) {
       rvalue(lval);
@@ -1120,17 +1119,6 @@ static int hier13(value *lval)
       error(33,ptr);            /* array must be indexed */
     } /* if */
     /* ??? if both are arrays, should check dimensions */
-    if (lval->ident == iARRAY)
-      asize1 = (lval->sym == NULL) ? (lval->constval > 0 ? lval->constval : -lval->constval) : lval->sym->dim.array.length;
-    if (lval->ident == iREFARRAY)
-      asize1 = lval->sym->dim.array.length;
-    if (lval2.ident == iARRAY)
-      asize2 = (lval2.sym == NULL) ? (lval2.constval > 0 ? lval2.constval : -lval2.constval) : lval2.sym->dim.array.length;
-    if (lval2.ident == iREFARRAY)
-      asize2 = lval2.sym->dim.array.length;
-    if (asize1 != -1 && asize2 != -1)
-      if (asize1 != asize2)
-        error(47);
     if (!matchtag(lval->tag,lval2.tag,FALSE))
       error(213);               /* tagname mismatch ('true' and 'false' expressions) */
     setlabel(flab2);