1 files changed, 8 insertions, 3 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index e8f7521c6..b77992520 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -42,18 +42,23 @@ package body Ghdllocal is
    --  If TRUE, generate 32bits code on 64bits machines.
    Flag_32bit : Boolean := False;
 
-   procedure Compile_Init is
+   procedure Initialize_Flags is
    begin
-      Options.Initialize;
       Flag_Ieee := Lib_Standard;
       Flag_Verbose := False;
+   end Initialize_Flags;
+
+   procedure Compile_Init is
+   begin
+      Options.Initialize;
+      Initialize_Flags;
    end Compile_Init;
 
    procedure Init (Cmd : in out Command_Lib)
    is
       pragma Unreferenced (Cmd);
    begin
-      Compile_Init;
+      Initialize_Flags;
    end Init;
 
    function Is_Generic_Override_Option (Opt : String) return Boolean