libadalang_tools_22.0.0_c9028428/testsuite/tests/pp/N827-012/p.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
with Ada.Characters.Latin_1;

package P is

   Data_Link_Escape      : Character renames Ada.Characters.Latin_1.DLE;
   Start_Of_Transmission : Character renames Ada.Characters.Latin_1.STX;
   Carriage_Return       : Character renames Ada.Characters.Latin_1.CR;
   Line_Feed             : Character renames Ada.Characters.Latin_1.LF;
   End_Of_Transmission   : Character renames Ada.Characters.Latin_1.ETX;

   Data_Link_Escape_Substitution      : constant Character := 'D';
   Start_Of_Transmission_Substitution : constant Character := 'S';
   Carriage_Return_Substitution       : constant Character := 'R';
   Line_Feed_Substitution             : constant Character := 'L';
   End_Of_Transmission_Substitution   : constant Character := 'E';

end P;