1-- Leading comment
2
3with Text_IO;
4with Ada.Text_IO, Ada.Strings.Unbounded;
5use Ada;
6use Ada.Text_IO;
7
8-- Another comment
9package Basic_Decl is
10
11   type Short_Range is range 1 .. 10;
12
13   subtype Same_Short_Range is Short_Range;
14
15   type Mid_Range is range Integer'First .. Natural'Last;
16
17   type A_Record is record
18      A : Integer; -- line ending comment
19      S : Short_Range;
20      M : Mid_Range range 10 .. Mid_Range(Short_Range'Last);
21   end record;
22
23end Basic_Decl;
24-- Trailing comment
25