--EMACSCMD:(setq skip-recase-test t)

--  Tests the indentation of with and use statements, with regards to
--  the variable ada-indent-with, ada-indent-use

with Ada.Text_IO,
     Ada.Numerics,   --  used to be indented with ada-broken-indent
     Ada.Strings;

use Ada.Text_IO,
    Ada.Numerics,   --  used to be indented with ada-broken-indent
    Ada.Strings;

procedure With_Use1 is
   use Ada.Text_IO,
       Ada.Numerics,   --  used to be indented with ada-broken-indent
       Ada.Strings;

begin null;
end With_Use1;
-- Local Variables:
-- ada-indent-with: 5
-- ada-indent-use: 4
-- End: