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.7 required=5.0 tests=BAYES_00,INVALID_DATE,
	MSGID_SHORT,REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no
	version=3.4.4
Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!elroy.jpl.nasa.gov!zardoz.cpd.com!infotec!lee
From: lee@infotec.UUCP (Lee Van Dyke)
Newsgroups: comp.lang.ada
Subject: Has anyone gotten test_math.a to run on a Sun4/OS 4.1 using VADS 6.0 ?
Message-ID: <813@infotec.UUCP>
Date: 13 Jun 91 17:33:22 GMT
Reply-To: lee@infotec.UUCP ()
Organization: Infotec Development Inc., Costa Mesa, CA
List-Id: <comp.lang.ada>



I can compile with the following warnings:



        Betain := One / Beta;
        A      := One;
        for I in 1..Negep loop
------------^A                                                               ###
--### A:warning: id hides outer definition
            exit when I > Negep;
            A := A * Betain;
        end loop;
        B := A;
        while ((One - A) - One) = Zero loop
            A     := A * Beta;
            Negep := Negep - 1;
        end loop;
        Negep  := - Negep;


        Ngrd := 0;
        if ((Irnd = 0) and ((One + Eps) * One - One) /= Zero) then
            Ngrd := 1;
        end if;
        Find_Iexp: 
            declare
                Y : Floating := 1.0;
----------------^A                                                           ###
--### A:warning: id hides outer definition
                A : Floating := Betain;
----------------^A                                                           ###
--### A:warning: id hides outer definition
                I : Integer := 0;
----------------^A                                                           ###
--### A:warning: id hides outer definition
            begin
                loop
                    Y := A * A;
                    exit when Y = 0.0;
                    I := I + 1;
                    A := Y;
                end loop;


                    A := Y;
                end loop;
                Iexp := I;
            end Find_Iexp;
        Find_Smallest: 
            declare
                A, Y : Floating := 1.0;
----------------^A                                                           ###
-------------------^B                                                        ###
--### A:warning: id hides outer definition
--### B:warning: id hides outer definition
                I    : Integer := 0;
----------------^A                                                           ###
--### A:warning: id hides outer definition
            begin
                loop
                    Y := A / Beta;
                    exit when Y = 0.0;
                    I := I - 1;
                    A := Y;
                end loop;
                Minexp := I;


                end loop;
                Minexp := I;
                Xmin   := A;
            end Find_Smallest;
        Find_Largest: 
            declare
                A, Y : Floating := 1.0;
----------------^A                                                           ###
-------------------^B                                                        ###
--### A:warning: id hides outer definition
--### B:warning: id hides outer definition
                I    : Integer := 1;
----------------^A                                                           ###
--### A:warning: id hides outer definition

            begin
                loop
                    Y := A * Beta;
                    I := I + 1;
                    A := Y;
                end loop;
            exception


        B    := One;
        C    := Max (Alxmax, Log (Xmin)) / Log (100.0);
        Dely := - C - C;
-----------------------------------------------------------------------
--  RANDOM   ARGUMENT   ACCURACY   TESTS
-----------------------------------------------------------------------
        for J in 1..4 loop
------------^A                                                               ###
--### A:warning: id hides outer definition

            K1  := 0;
            K3  := 0;
            X1  := Zero;
            R6  := Zero;
            R7  := Zero;
            Del := (B - A) / Xn;
            Xl  := A;
            for I in 1..N loop
                X := Del * Ran + Xl;
                case J is
                    when 1 => 
                        Zz := X ** One;




**********************************************************************

So I ignore the warnings with the -w, and link with the generic math
routines. Then the crash occurs when I run:

test_math_functions
** MAIN PROGRAM ABANDONED -- EXCEPTION "numeric_error" RAISED



Lee Van Dyke              UUCP: ...sun!sunkist!infotec!lee
Infotec                                      or
Costa Mesa, CA                  ...zardoz!infotec!lee
(714) 241-8254

-- 
Lee Van Dyke              UUCP: ...sun!sunkist!infotec!lee
Infotec                                      or
Costa Mesa, CA                  ...zardoz!infotec!lee
(714) 241-8254