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.
26 -- CHECK FOR CORRECT PRECEDENCE OF PREDEFINED AND OVERLOADED
27 -- OPERATIONS ON PREDEFINED TYPE FLOAT, USER-DEFINED TYPES, AND
28 -- ONE-DIMENSIONAL ARRAYS WITH COMPONENTS OF TYPE FLOAT.
31 -- RJW 10/13/88 CREATED ORIGINAL TEST.
33 WITH REPORT
; USE REPORT
;
37 TEST
("C44003D", "CHECK FOR CORRECT PRECEDENCE OF PREDEFINED " &
38 "AND OVERLOADED OPERATIONS ON PREDEFINED TYPE " &
39 "FLOAT, USER-DEFINED TYPES, AND ONE-DIMEN" &
40 "SIONAL ARRAYS WITH COMPONENTS OF TYPE FLOAT");
42 ----- PREDEFINED FLOAT:
49 FUNCTION "OR" (LEFT
, RIGHT
: FLOAT) RETURN FLOAT IS
54 FUNCTION "<" (LEFT
, RIGHT
: FLOAT) RETURN FLOAT IS
59 FUNCTION "-" (LEFT
, RIGHT
: FLOAT) RETURN FLOAT IS
64 FUNCTION "+" (RIGHT
: FLOAT) RETURN FLOAT IS
69 FUNCTION "*" (LEFT
, RIGHT
: FLOAT) RETURN FLOAT IS
74 FUNCTION "NOT" (RIGHT
: FLOAT) RETURN FLOAT IS
80 IF NOT (-ABS F1
+ F2
/ F1
+ F5
** 2 = 26.0 AND
82 - F2
* F2
** 3 = -8.5) THEN
83 FAILED
("INCORRECT RESULT - 1");
86 IF (F1
OR NOT F2
< F1
- F5
* F5
** 3) /= 4.5 THEN
87 FAILED
("INCORRECT RESULT - 2");
91 ----- USER-DEFINED TYPE:
100 FUNCTION "AND" (LEFT
, RIGHT
: USR
) RETURN USR
IS
105 FUNCTION ">=" (LEFT
, RIGHT
: USR
) RETURN USR
IS
110 FUNCTION "+" (LEFT
, RIGHT
: USR
) RETURN USR
IS
115 FUNCTION "-" (RIGHT
: USR
) RETURN USR
IS
120 FUNCTION "/" (LEFT
, RIGHT
: USR
) RETURN USR
IS
125 FUNCTION "**" (LEFT
, RIGHT
: USR
) RETURN USR
IS
130 IF +F5
- F2
* F1
** 2 /= 3.0 OR
132 - F2
* F2
** 3.0 /= 7.5 THEN
133 FAILED
("INCORRECT RESULT - 3");
136 IF (F1
AND F2
>= F1
+ F5
/ F5
** 3) /= 4.5 THEN
137 FAILED
("INCORRECT RESULT - 4");
144 TYPE ARR
IS ARRAY (INTEGER RANGE <>) OF FLOAT;
146 SUBTYPE SARR
IS ARR
(1 .. 3);
148 F1
: SARR
:= (OTHERS => 1.0);
149 F2
: SARR
:= (OTHERS => 2.0);
150 F5
: SARR
:= (OTHERS => 5.0);
152 FUNCTION "XOR" (LEFT
, RIGHT
: ARR
) RETURN ARR
IS
154 RETURN (1 .. 3 => 4.5);
157 FUNCTION "<=" (LEFT
, RIGHT
: ARR
) RETURN ARR
IS
159 RETURN (1 .. 3 => 5.5);
162 FUNCTION "&" (LEFT
, RIGHT
: ARR
) RETURN ARR
IS
164 RETURN (1 .. 3 => 6.5);
167 FUNCTION "MOD" (LEFT
, RIGHT
: ARR
) RETURN ARR
IS
169 RETURN (1 .. 3 => 8.5);
172 FUNCTION "ABS" (RIGHT
: ARR
) RETURN ARR
IS
174 RETURN (1 .. 3 => 9.5);
177 IF (ABS F1
<= F2
& F5
MOD F1
XOR F1
) /= (1 .. 3 => 4.5) THEN
178 FAILED
("INCORRECT RESULT - 5");
181 IF (ABS F1
& F2
) /= (1 .. 3 => 6.5) OR
182 (F1
MOD F2
<= F5
) /= (1 .. 3 => 5.5) THEN
183 FAILED
("INCORRECT RESULT - 6");