--  GNATpp preserve line breaks without --preserve-line-breaks switch
--  (this switch was removed in 24.xx)

package body preserve_line_breaks is

   procedure A
   is
   begin
      null;
   end A;

   procedure P
   is
      type T is
        array (1 .. 6)
        of Float;

      type R is record
         I : Integer;
         F : Float;
         A : T;
      end record;

   begin
      null;
   end P;

end preserve_line_breaks;
