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 OPERATOR SYMBOLS CAN BE USED IN (OVERLOADED)
26 -- FUNCTION SPECIFICATIONS WITH THE REQUIRED NUMBER OF PARAMETERS.
27 -- THIS TEST CHECKS THE CASE OF CERTAIN OPERATOR SYMBOLS.
29 -- (A) THROUGH (E): "AND", "OR", "XOR", "MOD", "REM"
30 -- RESPECTIVELY. ALL OF THESE HAVE TWO PARAMETERS.
31 -- (F) AND (G): "NOT" AND "ABS", RESPECTIVELY,
32 -- WITH ONE PARAMETER.
42 TEST
("C67002B", "USE OF OPERATOR SYMBOLS IN " &
43 "(OVERLOADED) FUNCTION SPECIFICATIONS");
45 -------------------------------------------------
48 FUNCTION "And" (I1
, I2
: INTEGER) RETURN CHARACTER IS
57 IF (IDENT_INT
(10) AND 1) /= 'G' OR
58 (5 AnD 10) /= 'L' THEN
59 FAILED
("OVERLOADING OF ""And"" OPERATOR DEFECTIVE");
63 -------------------------------------------------
66 FUNCTION "or" (I1
, I2
: INTEGER) RETURN CHARACTER IS
75 IF (IDENT_INT
(10) Or 1) /= 'G' OR
77 FAILED
("OVERLOADING OF ""or"" OPERATOR DEFECTIVE");
81 -------------------------------------------------
84 FUNCTION "xOR" (I1
, I2
: INTEGER) RETURN CHARACTER IS
93 IF (IDENT_INT
(10) XoR 1) /= 'G' OR
94 (5 xOR 10) /= 'L' THEN
95 FAILED
("OVERLOADING OF ""xOR"" OPERATOR DEFECTIVE");
99 -------------------------------------------------
102 FUNCTION "mOd" (I1
, I2
: INTEGER) RETURN CHARACTER IS
111 IF (IDENT_INT
(10) MoD 1) /= 'G' OR
112 (5 moD 10) /= 'L' THEN
113 FAILED
("OVERLOADING OF ""mOd"" OPERATOR DEFECTIVE");
117 -------------------------------------------------
120 FUNCTION "REM" (I1
, I2
: INTEGER) RETURN CHARACTER IS
129 IF (IDENT_INT
(10) rem 1) /= 'G' OR
130 (5 Rem 10) /= 'L' THEN
131 FAILED
("OVERLOADING OF ""REM"" OPERATOR DEFECTIVE");
135 -------------------------------------------------
138 FUNCTION "NOT" (I1
: INTEGER) RETURN CHARACTER IS
140 IF I1
< IDENT_INT
(0) THEN
147 IF (Not IDENT_INT
(25) /= 'P') OR
148 (noT (0-25) /= 'N') THEN
149 FAILED
("OVERLOADING OF ""NOT"" " &
150 "OPERATOR (ONE OPERAND) DEFECTIVE");
154 -------------------------------------------------
157 FUNCTION "ABS" (I1
: INTEGER) RETURN CHARACTER IS
159 IF I1
< IDENT_INT
(0) THEN
166 IF (abs IDENT_INT
(25) /= 'P') OR
167 (Abs (0-25) /= 'N') THEN
168 FAILED
("OVERLOADING OF ""ABS"" " &
169 "OPERATOR (ONE OPERAND) DEFECTIVE");
173 -------------------------------------------------