From 270d9354950e917b34c15661aedbc1ef58261b56 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 12 Sep 2022 21:22:16 +0200
Subject: simul: handle --expect-failure for elaboration

---
 src/ghdldrv/ghdlcomp.ads | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/ghdldrv/ghdlcomp.ads')

diff --git a/src/ghdldrv/ghdlcomp.ads b/src/ghdldrv/ghdlcomp.ads
index 5af54eaad..6c014a302 100644
--- a/src/ghdldrv/ghdlcomp.ads
+++ b/src/ghdldrv/ghdlcomp.ads
@@ -67,6 +67,9 @@ package Ghdlcomp is
    --  Output of --disp-config.
    procedure Disp_Config;
 
+   --  Option --expect-failure.
+   Flag_Expect_Failure : Boolean := False;
+
    -- --time-resolution=X
    -- Where X corresponds to:
    -- fs => 'f'
-- 
cgit v1.2.3