[Ada] Adjust previous change to Expand_Subtype_From_Expr