[Bug ada/11100] Internal compiler error: Ada florist-3.15p posix-sockets.gpb:481:20

["sant2ago at yahoo dot es" <gcc-bugzilla at gcc dot gnu dot org>]

PLEASE REPLY TO gcc-bugzilla@gcc.gnu.org ONLY, *NOT* gcc-bugs@gcc.gnu.org.

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



------- Additional Comments From sant2ago@yahoo.es  2003-06-05 11:31 -------
--
--  How can I send the rest of the source code? Are only files of the Ada
-- library florist: 
--  ftp://ftp.cs.nyu.edu/pub/gnat/3.15p/florist-3.15p-src.tgz
-- 
--  I will send those files to <gcc-bugs@gcc.gnu.org>, with subjet:
--    Bug 11100 source code
--
--  I hope this is the correct form of send source code.

with  POSIX;
with  POSIX.IO;
with  POSIX.Sockets;
with  POSIX.Sockets.Internet;

with  Ada.Text_IO;
with  Ada.Integer_Text_IO;


procedure Posix_Test is
        Error : POSIX.Error_Code;

        Server_Socket  : POSIX.IO.File_Descriptor;
        Server_Address : POSIX.Sockets.Socket_Address_Pointer;
begin

        Ada.Text_IO.Put_Line(Integer'Image(POSIX.POSIX_Ada_Version));
        Ada.Text_IO.New_Line;

        Server_Socket :=
POSIX.Sockets.Create(POSIX.Sockets.Internet.Internet_Protocol,
                                              POSIX.Sockets.Stream_Socket,
                                              POSIX.Sockets.Internet.TCP);

        POSIX.Sockets.Connect(Server_Socket, Server_Address);

        POSIX.Set_Error_Code(POSIX.No_Error);
        raise POSIX.POSIX_Error;
exception
        when POSIX.POSIX_Error =>
                Error := POSIX.Get_Error_Code;
                Ada.Text_IO.Put_Line( POSIX.Image(Error) );

end Posix_Test;





------- You are receiving this mail because: -------
You are on the CC list for the bug, or are watching someone who is.