bug test

test.adb (text/plain), 192 bytes, created by Maxim Reznik on 2003-08-11 23:16:52 UTC

with Ada.Text_IO;
with Interfaces.C;

procedure test is
   use Interfaces.C;
   Message : char_array := "Hello";
begin
   Ada.Text_IO.Put_Line ("'" & To_Ada (Message, False) & "'");
end test;