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.2 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	INVALID_MSGID,REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,4f523c5e0f604e44
X-Google-Attributes: gid103376,public
From: jrmonroe@aol.com (JRMONROE)
Subject: Re: GNAT 3.05 distribution, Float Exception Handling Error
Date: 1996/09/15
Message-ID: <51ic3u$t7r@newsbf02.news.aol.com>#1/1
X-Deja-AN: 180830123
sender: root@newsbf02.news.aol.com
references: <dewar.842783560@schonberg>
organization: America Online, Inc. (1-800-827-6364)
reply-to: jrmonroe@aol.com (JRMONROE)
newsgroups: comp.lang.ada
Date: 1996-09-15T00:00:00+00:00
List-Id: <comp.lang.ada>


I use a 486/66, 16megs ram, Dos ver 6.22, wFw3.11, also win95 ,but the
win95 gnat works fine.  The dos gnat305 is not working for this floating
point error.  I tried the following code and it gives me the following
error:

with ada.text_io, ada.float_text_IO;
use ada.text_io, ada.float_text_io;
procedure Testing is
    -- declarations
    a:float:=20.0;
    b:float:=5.0;
    c:float:=0.0;
    
    test:exception;
begin
    -- statements
    begin -- begin block
    put_line("THIS IS A TEST");
    new_line;
    put("20/5= ");
    put(a/b);
    new_line;
    put("20/0=");
    put(a/c);
    exception
    	when constraint_error =>
    		put_line("CONSTRAINT ERROR");
    	when others =>
    		put_line("some other error was made");	
    		
    end; --block
    Put_line("THIS SHOULD BE AFTER EXCEPTION!!");
    
end Testing;

Error is:
Exiting due to signal SIGFPE
Floating Point exception at eip=0000c19d
eax=00000002 ebx=0005efec ecx=00000005 edx=0001ef40 esi=00000054
edi=0001f044
ebp=0005f014 esp=0005efb8 cs=00af ds=00b7 es=00b7 fs=0087 gs=00c7 ss=00b7
Call frame traceback EIPs:
  0x0000c19d
  0x000015da
  0x0000d707

Any help would be appreciated, thank you sincerely,

James R. Monroe
USAF Retired