with Ada.Text_IO;
procedure Simple.Json.Main is
   use Ada.Text_IO;

   F : Simple_Struct := (12, (others => '1'));
   F2 : Struct_With_Discriminant_And_Default := (True, 12, (others => '1'), False);
   F3 : Struct_With_Discriminant_And_Default := (False, 12, (others => '1'), 1);
   F4 : Struct_With_Discriminant_And_Default;
   F5 : Tagged_Record_Childern;
   F6 : Standard_Types_Record;
begin
   Put (Item => F,  Named_Association_Record => True); New_Line;
   Put (Item => F2, Named_Association_Record => True); New_Line;
   Put (Item => F3, Named_Association_Record => True); New_Line;
   Put (Item => F4,
        Single_Line_Record => False ,
        Named_Association_Record => True); New_Line;
   Put (Item => F5,
        Single_Line_Record => False ,
        Named_Association_Record => True); New_Line;

   Put (Item => F6,
        Single_Line_Record => False ,
        Named_Association_Record => True); New_Line;
end Simple.Json.Main;
