defining_identifier_list : [aliased] [constant] subtype_indication [:= expression];
| defining_identifier_list : [aliased] [constant] array_type_definition [:= expression];
| single_task_declaration
| single_protected_declaration
defining_identifier {, defining_identifier}
record
S : String(1..D) := (others => G);
end record;
Paul : Person_Name := new Person(Sex => M);
Size : Integer range 0 .. 10_000 := 0;
Sorted : Boolean := False;
Color_Table : array(1 .. Max) of Color;
Option : Bit_Vector(1 .. 10) := (others => True);
Hello : constant String := "Hi, world.";
Low_Limit : constant Integer := Limit/10;
Tolerance : constant Real := Dispersion(1.15);
defining_identifier_list : constant := static_expression;
Max_Line_Size : constant := Max/6 -- the integer 83
Power_16 : constant := 2**16; -- the integer 65_536
One, Un, Eins : constant := 1; -- three different names for 1