gcc/testsuite/gnat.dg/boolean_subtype2_pkg.ads

   1 package Boolean_Subtype2_Pkg is
   2
   3    type Node_Id is range 0 .. 099_999_999;
   4    subtype Entity_Id is Node_Id;
   5
   6    function Node20 (N : Node_Id) return Node_Id;
   7    function Flag63 (N : Node_Id) return Boolean;
   8    function Present (N : Node_Id) return Boolean;
   9
  10 end Boolean_Subtype2_Pkg;