From: lee@infotec.UUCP (Lee Van Dyke)
Subject: Has anyone gotten test_math.a to run on a Sun4/OS 4.1 using VADS 6.0 ?
Date: 13 Jun 91 17:33:22 GMT [thread overview]
Message-ID: <813@infotec.UUCP> (raw)
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
next reply other threads:[~1991-06-13 17:33 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1991-06-13 17:33 Lee Van Dyke [this message]
1991-06-14 17:12 ` Has anyone gotten test_math.a to run on a Sun4/OS 4.1 using VADS 6.0 ? David T. Lindsley
1991-06-15 1:42 ` Block Statements and the DECLARE reserved word Michael Feldman
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox