3 -- Grant of Unlimited Rights
5 -- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
6 -- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
7 -- unlimited rights in the software and documentation contained herein.
8 -- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making
9 -- this public release, the Government intends to confer upon all
10 -- recipients unlimited rights equal to those held by the Government.
11 -- These rights include rights to use, duplicate, release or disclose the
12 -- released technical data and computer software in whole or in part, in
13 -- any manner and for any purpose whatsoever, and to have or permit others
18 -- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
19 -- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
20 -- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
21 -- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
22 -- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
23 -- PARTICULAR PURPOSE OF SAID MATERIAL.
25 -- CHECK THAT THE BINARY POINT IN THE MANTISSA OF A FIXED POINT NUMBER
26 -- CAN LIE OUTSIDE THE MANTISSA (EITHER TO THE LEFT OR TO THE RIGHT).
30 WITH REPORT
; USE REPORT
;
31 WITH SYSTEM
; USE SYSTEM
;
36 TEST
("C35902D", "CHECK THAT THE BINARY POINT IN THE MANTISSA " &
37 "OF A FIXED POINT NUMBER CAN LIE OUTSIDE THE " &
38 "MANTISSA (EITHER TO THE LEFT OR TO THE RIGHT)");
40 COMMENT
("VALUE OF SYSTEM.MAX_MANTISSA IS" &
41 POSITIVE'IMAGE(MAX_MANTISSA
) );
47 TYPE ONE_TO_THE_RIGHT
IS
49 RANGE -(2.0 ** (MAX_MANTISSA
+1) ) ..
50 2.0 ** (MAX_MANTISSA
+1);
51 -- THE BINARY POINT IS ONE PLACE TO THE RIGHT OF THE
52 -- LARGEST POSSIBLE MANTISSA.
54 R1
, R2
: ONE_TO_THE_RIGHT
;
59 FOR I
IN POSITIVE RANGE 1 .. MAX_MANTISSA
- 1 LOOP
60 R1
:= R1
* IDENT_INT
(2);
64 -- AT THIS POINT, R2 SHOULD EQUAL ONE_TO_THE_RIGHT'LARGE.
67 FOR I
IN POSITIVE RANGE 1 .. MAX_MANTISSA
- 1 LOOP
68 R2
:= R2
/ IDENT_INT
(2);
71 FAILED
("IDENTITY-PRESERVING OPERATIONS ARE FLAKY - A");
77 FAILED
("EXCEPTION RAISED - A");
83 LS
: CONSTANT := 2.0 ** (-(MAX_MANTISSA
+1) );
85 TYPE ONE_TO_THE_LEFT
IS
87 RANGE -(2.0 ** (-1) ) ..
89 -- THE BINARY POINT IS ONE PLACE TO THE LEFT OF THE
90 -- LARGEST POSSIBLE MANTISSA.
92 L1
, L2
: ONE_TO_THE_LEFT
;
97 FOR I
IN POSITIVE RANGE 1 .. MAX_MANTISSA
- 1 LOOP
98 L1
:= L1
* IDENT_INT
(2);
102 -- AT THIS POINT, L2 SHOULD EQUAL ONE_TO_THE_LEFT'LARGE.
104 L2
:= L2
+ (L1
- LS
);
105 FOR I
IN POSITIVE RANGE 1 .. MAX_MANTISSA
- 1 LOOP
106 L2
:= L2
/ IDENT_INT
(2);
109 FAILED
("IDENTITY-PRESERVING OPERATIONS ARE FLAKY - B");
115 FAILED
("EXCEPTION RAISED - B");