From b588ebc8a3fe7be82435e590c793ac7feac8a997 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 29 May 2022 08:45:41 +0200
Subject: ghdlsimul: use assertion level from command line

---
 src/ghdldrv/ghdlsimul.adb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index 978d5a501..832ccd9a2 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -168,6 +168,8 @@ package body Ghdlsimul is
       Flags.Flag_String (5) := Time_Resolution;
       Grtlink.Flag_String := Flags.Flag_String;
 
+      Synth.Flags.Severity_Level := Grt.Options.Severity_Level;
+
       Elaborate_Proc := Simul.Vhdl_Simul.Runtime_Elaborate'Access;
       Simul.Vhdl_Simul.Simulation;
 
-- 
cgit v1.2.3