Discard_Node
(Compile_Time_Constraint_Error
- (N => N,
- Msg =>
+ (N => N,
+ Msg =>
"(Ada 2005) null-excluding component % of object % must "
& "be initialized??",
Ent => Defining_Identifier (Comp)));
elsif Array_Comp then
Discard_Node
(Compile_Time_Constraint_Error
- (N => N,
- Msg =>
+ (N => N,
+ Msg =>
"(Ada 2005) null-excluding array components must "
& "be initialized??",
Ent => Defining_Identifier (N)));
Add_Check
(Compile_Time_Constraint_Error
((if Present (Warn_Node)
- then Warn_Node else Low_Bound (Expr)),
- "static value does not equal lower bound of}??",
+ then Warn_Node else Low_Bound (Expr)),
+ "static value does not equal lower bound of}??",
T_Typ));
Check_Added := True;
end if;