From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.5 required=5.0 tests=BAYES_00,INVALID_MSGID,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,ebbcdcfb25e71dd9,start
X-Google-Attributes: gid103376,public
From: pascal.obry@der.edfgdf.fr (Pascal Obry)
Subject: Problems with GNAT 3.01 NT and Task.
Date: 1996/04/17
Message-ID: <4l2pau$3od@cf01>#1/1
X-Deja-AN: 147970569
organization: Direction des Etudes et Recherches EDF
newsgroups: comp.lang.ada
Date: 1996-04-17T00:00:00+00:00
List-Id: <comp.lang.ada>


Hello,

I'am hanving some troubles with GNAT 3.01 for Windows NT. My
environment is :

	Pentium Pro
	Windows NT 3.51
	GNAT 3.01
	MSVC 4.0

When I compile the following program using Text_IO and with the task
RTL (the delay statement makes the task RTL linked with the program) I
got an exception : "SYSTEM.ASSERTIONS.ASSERT_FAILURE"

Without the delay everything is fine.

What's the problem ?

Thanks,
Pascal.

PS : I have checked that the LIBCMT (multithreads safe) is used.

-----------------------------------
with Ada.Text_IO;

procedure TestIO is
begin
	Ada.Text_IO.Put_Line ("toto");
	delay 1.0;
end TestIO;


--|------------------------------------------------------------
--| Pascal Obry                               Team-Ada Member |
--|                                                           |
--| EDF-DER-IPN-SID- Ing�nierie des Syst�mes d'Informations   |
--|                                                           |
--| Bureau G1-010           e-mail: pascal.obry@der.edfgdf.fr |
--| 1 Av G�n�ral de Gaulle  voice : +33-1-47.65.50.91         |
--| 92141 Clamart CEDEX     fax   : +33-1-47.65.50.07         |
--| FRANCE                                                    |
--|------------------------------------------------------------
--|
--|   http://ourworld.compuserve.com/homepages/pascal_obry
--|
--|   "The best way to travel is by means of imagination"