From 03150800332a179319bfa8937b19766f2582cb36 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 11 Feb 2020 04:06:09 +0100
Subject: translate: refine condition.  Fix #1125

For the check of matching direction in slices.
---
 src/vhdl/translate/trans-chap6.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb
index e21836a28..69ee04145 100644
--- a/src/vhdl/translate/trans-chap6.adb
+++ b/src/vhdl/translate/trans-chap6.adb
@@ -622,7 +622,7 @@ package body Trans.Chap6 is
       --  Check direction against same direction, error if different.
       --  FIXME: what about v87 -> if different then null slice
       if not Static_Range
-        or else Get_Kind (Prefix_Type) /= Iir_Kind_Array_Subtype_Definition
+        or else not Get_Index_Constraint_Flag (Prefix_Type)
       then
          --  Check same direction.
          Check_Direction_Error
-- 
cgit v1.2.3