changed array aggregates in Init_Countries to extended return statement

Author: AJ-Ianozi

alire.toml

@@ -8,6 +8,3 @@ tags = [ "countries", "iso-1366" ]
 authors = ["AJ Ianozi"]
 maintainers = ["AJ Ianozi <aj@ianozi.com>"]
 maintainers-logins = ["AJ-Ianozi"]
-
-[build-switches]
-"*".ada_version = "Ada2022"

generator/src/countries.adb

@@ -442,10 +442,12 @@ package body Countries is
       Put_Line (F, "      return From_Alpha2 (Alpha2_Code (Code));");
       Put_Line (F, "   end From_Country_Code;");
       Put_Line (F, "   function Init_Countries return All_Countries is");
-      Put_Line (F, "      Result : constant All_Countries :=");
-      Put_Line (F, "                           [for X in Country_Key'Range => (Key => X)];");
       Put_Line (F, "   begin");
-      Put_Line (F, "      return Result;");
+      Put_Line (F, "      return Result : All_Countries do");
+      Put_Line (F, "         for X in Country_Key'Range loop");
+      Put_Line (F, "            Result (X) := (Key => X);");
+      Put_Line (F, "         end loop;");
+      Put_Line (F, "      end return;");
       Put_Line (F, "   end Init_Countries;");
       Put_Line (F, "   --  *** End Creation Functions ***");
       Put_Line (F, "");

src/iso-countries.adb

@@ -1060,10 +1060,12 @@ package body ISO.Countries is
       return From_Alpha2 (Alpha2_Code (Code));
    end From_Country_Code;
    function Init_Countries return All_Countries is
-      Result : constant All_Countries :=
-                           [for X in Country_Key'Range => (Key => X)];
    begin
-      return Result;
+      return Result : All_Countries do
+         for X in Country_Key'Range loop
+            Result (X) := (Key => X);
+         end loop;
+      end return;
    end Init_Countries;
    --  *** End Creation Functions ***