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 THAT THE DYNAMIC VALUE ROUTINES OF THE REPORT PACKAGE WORK
31 -- RLB 03/20/00 - Added checks for Integer'First and Integer'Last.
40 TEST
("CZ1102A", "CHECK THAT THE DYNAMIC VALUE ROUTINES OF " &
41 "THE REPORT PACKAGE WORK CORRECTLY");
43 IF NOT EQUAL
(0, 0) OR
49 NOT EQUAL
(INTEGER'FIRST, INTEGER'FIRST) OR
50 NOT EQUAL
(INTEGER'LAST, INTEGER'LAST) OR
52 FAILED
("'EQUAL' NOT WORKING");
55 IF IDENT_INT
(5) /= 5 THEN
56 FAILED
("'IDENT_INT' NOT WORKING");
59 IF IDENT_CHAR
('E') /= 'E' THEN
60 FAILED
("'IDENT_CHAR' NOT WORKING");
63 IF IDENT_BOOL
(TRUE) /= TRUE THEN
64 FAILED
("'IDENT_BOOL' NOT WORKING");
67 IF IDENT_STR
("") /= "" OR
68 IDENT_STR
("K") /= "K" OR
69 IDENT_STR
("PQRS") /= "PQRS" THEN
70 FAILED
("'IDENT_STR' NOT WORKING");