Unwanted newline

[rm-throwaway4@gunlab.com.ru]

May be I did not rtfm enough, but I can't find the answer.

rm@gloria ~/abinu
$ cat ctest.c
#include <stdio.h>

void main(void) {
                putchar('X');
}

rm@gloria ~/abinu
$ cat test.adb

with ADA.TEXT_IO;
use  ADA.TEXT_IO;

procedure test is
   package IntIO is new ADA.TEXT_IO.INTEGER_IO(INTEGER);
   use IntIO;

begin

   PUT("X");

end test;

rm@gloria ~/abinu
$ ./ctest;echo Y
XY

rm@gloria ~/abinu
$ ./test;echo Y
X
Y

Apparently Text_Io places newline when program exits even if I did not
ask for it. How to output ONLY "X" in Ada, without newline?