From 74f1fa0f335df82ce6e1909a1f0665b1a459d107 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 18 Apr 2020 08:03:22 +0200
Subject: vhdl-sem_expr: report during analysis out-of-range qualified
 expressions.

For #1240
---
 src/vhdl/vhdl-sem_expr.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index 8ca0503fe..c05dcb618 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -4222,6 +4222,9 @@ package body Vhdl.Sem_Expr is
             null;
       end case;
 
+      --  Emit a warning if the value is known not to be within the bounds.
+      Eval_Check_Bound (Res, N_Type);
+
       return Expr;
    end Sem_Qualified_Expression;
 
-- 
cgit v1.2.3