Wattributes-10.c: Add -fno-common option on hppa*-*-hpux*.

[official-gcc.git] / gcc / testsuite / gnat.dg / boolean_subtype2.ads

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;