gcc-4.9/gcc/testsuite/gnat.dg/boolean_subtype2.ads


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;