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