1-- { dg-do run } 2-- { dg-options "-gnata" } 3 4with Ada.Strings.Fixed; use Ada.Strings.Fixed; 5with Config_Pragma1_Pkg; use Config_Pragma1_Pkg; 6 7procedure Config_Pragma1 is 8 Target : String10; 9 10begin 11 for I in Positive10 loop 12 Move 13 (Source => Positive10'Image(I), 14 Target => Target); 15 16 FHM.Include 17 (Container => FHMM, 18 Key => Target, 19 New_Item => I); 20 end loop; 21end Config_Pragma1; 22