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