[Bug ada/31669] New: GNAT blows up during compilation

["anhvofrcaus at gmail dot com" <gcc-bugzilla at gcc dot gnu dot org>]

Ada compiler, GNAT, blows up during compilation of the code segment below with
an unhandled exception error message "raised RTSIFND.RE_NOT_AVAILABLE :
rts.find.adb:210"

package Abstract_Base is

   pragma Pure;

   type Base_Type is abstract tagged limited private;

   procedure Update (This : access Base_Type;
                     Data : in     Integer) is abstract;

private
   type Base_Type is abstract tagged limited null record;

end Abstract_Base;


with Abstract_Base;
package Re_Not_Available is

   pragma Remote_Call_Interface;

   type Base_Access is access all Abstract_Base.Base_Type'Class;

   type Subscription is private;
   Null_Sub : constant Subscription;

   procedure Subscribe (This : in out Subscription;
                        Callback : in Base_Access);

   procedure Unsubscribe (This : in out Subscription);


   type Publication is Private;
   Null_Pub : constant Publication;

   procedure Register (This : in out Publication);
   function Register return Publication;

   procedure Unregister (This : in out Publication);

   procedure Publish (This : Publication;
                      Data : Integer); 

private

   Max_Subscribers : constant := 20;
   type Subscriber_Id is range 0 .. Max_Subscribers;

   type Subscription is new Subscriber_Id;
   type Publication is new Boolean;

   Null_Sub : constant Subscription := 0;
   Null_Pub : constant Publication := False;

end Re_Not_Available;


-- 
           Summary: GNAT blows up during compilation
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: blocker
          Priority: P3
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anhvofrcaus at gmail dot com
 GCC build triplet: gcc-4.3-20070420
  GCC host triplet: RedHat 10.0 on X86
GCC target triplet: RedHat 10.0 on X86


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31669