commit f8b87697e8b893b6293ebbfc34670c32bfb49397
Author: Tristan Gingold <tgingold@free.fr>
Date:   Thu May 12 18:16:38 2022 +0200

    ghdllocal.adb: move pragma suppress.  Fix #2056

--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -1158,11 +1158,11 @@
             Src : String_Access;
             Dst : String_Access;
             Success : Boolean;
-            pragma Unreferenced (Success);
          begin
             Src := new String'(Image (Dir) & Basename & Get_Object_Suffix.all);
             Dst := new String'(Basename & Get_Object_Suffix.all);
             Copy_File (Src.all, Dst.all, Success, Overwrite, Full);
+            pragma Unreferenced (Success);
             --  Be silent in case of error.
             Free (Src);
             Free (Dst);
