------- Additional Comments From laurent at guerby dot net 2004-11-24 20:54 ------- Works for me when I change a bity the code as follows:
declare Message : String (1..5); begin String'Read (Channel, Message); Ada.Text_IO.Put_Line (Message); end; I believe the behaviour of the original code is not very well defined per stream and socket semantics. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17960