--EMACSCMD:(setq skip-recase-test t) we have identifiers that don't follow the standard naming convention
-- test align of 'use'. need a blank line to avoid indenting this comment (sigh). result is tested with diff.
--EMACSCMD:(progn (forward-line 2)(forward-word 3)(forward-char 1)(insert " ")(ada-align))
with Ada.Directories; use Ada.Directories;
with Ada.Text_IO; use Ada.Text_IO;
with Ada_Mode.Nominal; use Ada_Mode.Nominal;
package Ada_Mode.Nested_Packages is
Local_Exception_1 : exception renames
Global_Exception_1;
package Sequencer is
function Create (Model : in Integer;
Context : in String) return String;
end Sequencer;
package Wem is
procedure GetVariableValue;
end Wem;
procedure F;
procedure Server_Begin;
package Test_Format is
procedure Test_Proc;
end Test_Format;
package TestForWhile is
procedure Test;
end TestForWhile;
private -- part of Ada_Mode.Nested_Packages, not Private_Only
package Private_Only is
private
package Private_Package is
end Private_Package;
A : Integer;
end Private_Only;
procedure Test_For_1;
end Ada_Mode.Nested_Packages;