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 A PREDEFINED OR AN UNRECOGNIZED PRAGMA MAY HAVE
27 -- ARGUMENTS INVOLVING OVERLOADED IDENTIFIERS WITHOUT ENOUGH
28 -- CONTEXTUAL INFORMATION TO RESOLVE THE OVERLOADING.
30 -- PASS/FAIL CRITERIA:
31 -- THIS TEST IS PASSED IF IT REPORTS "TENTATIVELY PASSED" AND
32 -- THE STARRED COMMENT DOES NOT APPEAR IN THE LISTING.
34 -- AN IMPLEMENTATION FAILS THIS TEST IF THE STARRED COMMENT
35 -- LINE APPEARS IN THE COMPILATION LISTING.
38 -- TBN 02/24/86 CREATED ORIGINAL TEST.
39 -- JET 01/13/88 ADDED CALLS TO SPECIAL_ACTION AND UPDATED HEADER.
40 -- EDS 10/28/97 ADDED DECLARATIONS FOR PROCEDURES XYZ.
42 WITH REPORT
, SYSTEM
; USE REPORT
, SYSTEM
;
45 FUNCTION OFF
RETURN INTEGER IS
50 FUNCTION OFF
RETURN BOOLEAN IS
56 --***** THIS LINE MUST NOT APPEAR IN COMPILATION LISTING.
59 FUNCTION ELABORATION_CHECK
RETURN INTEGER IS
62 END ELABORATION_CHECK
;
64 FUNCTION ELABORATION_CHECK
RETURN BOOLEAN IS
67 END ELABORATION_CHECK
;
69 PRAGMA SUPPRESS
(ELABORATION_CHECK
, ELABORATION_CHECK
);
71 FUNCTION TIME
RETURN INTEGER IS
76 FUNCTION TIME
RETURN BOOLEAN IS
81 PRAGMA OPTIMIZE
(TIME
);
84 PROCEDURE XYZ
(COUNT
: INTEGER);
87 PRAGMA PHIL_BRASHEAR
(XYZ
);
94 PROCEDURE XYZ
(COUNT
: INTEGER) IS
100 TEST
("E28002B", "CHECK THAT A PREDEFINED OR AN UNRECOGNIZED " &
101 "PRAGMA MAY HAVE ARGUMENTS INVOLVING " &
102 "OVERLOADED IDENTIFIERS WITHOUT ENOUGH " &
103 "CONTEXTUAL INFORMATION TO RESOLVE THE " &
106 SPECIAL_ACTION
("CHECK THAT THE COMPILATION LISTING DOES NOT " &
107 "SHOW THE STARRED COMMENT LINE");