11032       Drange     : constant Node_Id := Discrete_Range (N);  constant
11181       elsif Is_Entity_Name (Drange) then
11182          Dexpr := New_Copy (Scalar_Range (Entity (Drange)));
11184          Set_Etype  (Dexpr, Etype  (Drange));
11185          Set_Parent (Dexpr, Parent (Drange));
11186          Set_Sloc   (Dexpr, Sloc   (Drange));
11192          Resolve (Drange, Base_Type (Index_Type));
11194          if Nkind (Drange) = N_Range then
11195             Force_Evaluation (Low_Bound  (Drange));
11196             Force_Evaluation (High_Bound (Drange));
11198             Dexpr := Drange;
11214          if Nkind (Drange) = N_Subtype_Indication
11215            and then Has_Predicates (Entity (Subtype_Mark (Drange)))
11217             Subt := Entity (Subtype_Mark (Drange));
11219             Subt := Etype (Drange);
11224               ("subtype& has predicate, not allowed in slice", Drange, Subt);
11230       if Nkind (Drange) = N_Range then
11231          Warn_On_Suspicious_Index (Name, Low_Bound  (Drange));
11232          Warn_On_Suspicious_Index (Name, High_Bound (Drange));
12360       Drange        : constant Node_Id := Discrete_Range (N);  constant
12363       Index_Type := Base_Type (Etype (Drange));
12365       if Is_Entity_Name (Drange) then
12366          Index_Subtype := Entity (Drange);
12375          if Nkind (Drange) = N_Range then
12376             Force_Evaluation (Low_Bound (Drange));
12377             Force_Evaluation (High_Bound (Drange));
12382          elsif Nkind (Drange) = N_Subtype_Indication then
12384                R : constant Node_Id := Range_Expression (Constraint (Drange));
12386                Index_Type := Base_Type (Entity (Subtype_Mark (Drange)));
12404          Set_Scalar_Range   (Index_Subtype, New_Copy_Tree (Drange));
12506             Drange        : Node_Id;  variable
12536             Drange := Make_Range (Loc, New_Copy_Tree (Low_Bound), High_Bound);
12537             Set_Scalar_Range (Index_Subtype, Drange);
12538             Set_Parent (Drange, N);
12539             Analyze_And_Resolve (Drange, Index_Type);