From 51bab442d6ef8af394e5a5c33d63b2fe6b89af37 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 15 May 2020 08:18:55 +0200
Subject: synth-flags: consider severity error as an error.

---
 src/synth/synth-flags.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/synth-flags.ads b/src/synth/synth-flags.ads
index d4603b316..032c2321d 100644
--- a/src/synth/synth-flags.ads
+++ b/src/synth/synth-flags.ads
@@ -64,7 +64,7 @@ package Synth.Flags is
    Flag_Max_Loop : Natural := 1000;
 
    --  Level at which an assert stop the simulation.
-   Severity_Level : Integer := Grt.Severity.Failure_Severity;
+   Severity_Level : Integer := Grt.Severity.Error_Severity;
 
    Flag_Verbose : Boolean := False;
 end Synth.Flags;
-- 
cgit v1.2.3