11115       Drange     : constant Node_Id := Discrete_Range (N);  constant
11267       elsif Is_Entity_Name (Drange) then
11268          Dexpr := New_Copy (Scalar_Range (Entity (Drange)));
11270          Set_Etype  (Dexpr, Etype  (Drange));
11271          Set_Parent (Dexpr, Parent (Drange));
11272          Set_Sloc   (Dexpr, Sloc   (Drange));
11278          Resolve (Drange, Base_Type (Index_Type));
11280          if Nkind (Drange) = N_Range then
11281             Force_Evaluation (Low_Bound  (Drange));
11282             Force_Evaluation (High_Bound (Drange));
11284             Dexpr := Drange;
11300          if Nkind (Drange) = N_Subtype_Indication
11301            and then Has_Predicates (Entity (Subtype_Mark (Drange)))
11303             Subt := Entity (Subtype_Mark (Drange));
11305             Subt := Etype (Drange);
11310               ("subtype& has predicate, not allowed in slice", Drange, Subt);
11316       if Nkind (Drange) = N_Range then
11317          Warn_On_Suspicious_Index (Name, Low_Bound  (Drange));
11318          Warn_On_Suspicious_Index (Name, High_Bound (Drange));
12418       Drange        : constant Node_Id := Discrete_Range (N);  constant
12421       Index_Type := Base_Type (Etype (Drange));
12423       if Is_Entity_Name (Drange) then
12424          Index_Subtype := Entity (Drange);
12433          if Nkind (Drange) = N_Range then
12434             Force_Evaluation (Low_Bound (Drange));
12435             Force_Evaluation (High_Bound (Drange));
12440          elsif Nkind (Drange) = N_Subtype_Indication then
12442                R : constant Node_Id := Range_Expression (Constraint (Drange));
12444                Index_Type := Base_Type (Entity (Subtype_Mark (Drange)));
12462          Set_Scalar_Range   (Index_Subtype, New_Copy_Tree (Drange));
12550             Drange        : Node_Id;  variable
12609             Drange := Make_Range (Loc, New_Copy_Tree (Low_Bound), High_Bound);
12610             Set_Scalar_Range (Index_Subtype, Drange);
12611             Set_Parent (Drange, N);
12612             Analyze_And_Resolve (Drange, Index_Type);