From d61572e39c61fbd4b6f4fa48c08a159d0b3d3a73 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 4 Feb 2020 18:26:21 +0100
Subject: testsuite/gna: add a test for previous commit.

---
 src/vhdl/vhdl-sem_utils.adb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_utils.adb b/src/vhdl/vhdl-sem_utils.adb
index ac06e3ea9..bd4f20eef 100644
--- a/src/vhdl/vhdl-sem_utils.adb
+++ b/src/vhdl/vhdl-sem_utils.adb
@@ -60,6 +60,10 @@ package body Vhdl.Sem_Utils is
                Sig := Sig + 1;
                Hash := Hash * 7 + To_Hash (Itype);
                Hash := Hash + Hash / 2**28;
+            else
+               --  Non-object parameter are not allowed.
+               pragma Assert (Flags.Flag_Force_Analysis);
+               null;
             end if;
             Inter := Get_Chain (Inter);
          end loop;
-- 
cgit v1.2.3