commit 8c5689b93e68ac34cdf7dd089a3990ae22f0049c
Author: Xiretza <xiretza@xiretza.xyz>
Date:   Sat May 14 11:46:53 2022 +0200

    fix: avoid "pragma Unreferenced given" warnings with GCC 12

--- a/src/ghdldrv/ghdldrv.adb
+++ b/src/ghdldrv/ghdldrv.adb
@@ -1192,7 +1192,6 @@
    procedure Perform_Action (Cmd : in out Command_Elab; Args : Argument_List)
    is
       Success : Boolean;
-      pragma Unreferenced (Success);
    begin
       Set_Elab_Units (Cmd, "-e", Args);
       Setup_Compiler (Cmd, False);
@@ -1202,6 +1201,7 @@
          Link (Cmd, Add_Std => True, Disp_Only => False);
       end if;
       Delete_File (Filelist_Name.all, Success);
+      pragma Unreferenced (Success);
    end Perform_Action;
 
    --  Command Run.
--- a/src/synth/synth-vhdl_stmts.adb
+++ b/src/synth/synth-vhdl_stmts.adb
@@ -1869,11 +1869,11 @@
                                            Assoc_Chain : Node)
    is
       Infos : Target_Info_Array (1 .. 0);
-      pragma Unreferenced (Infos);
       Init : Association_Iterator_Init;
    begin
       Init := Association_Iterator_Build (Inter_Chain, Assoc_Chain);
       Synth_Subprogram_Association (Subprg_Inst, Caller_Inst, Init, Infos);
+      pragma Unreferenced (Infos);
    end Synth_Subprogram_Association;
 
    --  Create wires for out and inout interface variables.
--- a/src/vhdl/translate/trans-chap2.adb
+++ b/src/vhdl/translate/trans-chap2.adb
@@ -1006,7 +1006,6 @@
       Info   : constant Ortho_Info_Acc := Get_Info (Spec);
       Final  : Boolean;
       Constr : O_Assoc_List;
-      pragma Unreferenced (Final);
    begin
       if not Is_Nested then
          Start_Subprogram_Body (Info.Package_Elab_Spec_Subprg);
@@ -1039,6 +1038,7 @@
             (Info.Package_Spec_Scope'Access, Info.Package_Spec_Scope));
       end if;
       Chap4.Elab_Declaration_Chain (Spec, Final);
+      pragma Unreferenced (Final);
 
       if not Is_Nested then
          Close_Temp;
