1 2 3 4 5 6 7 8 9
with Boolean_Subtype2_Pkg; use Boolean_Subtype2_Pkg; package Boolean_Subtype2 is subtype B is Boolean; function Is_String_Type (Id : Entity_Id) return B; end Boolean_Subtype2;