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 AN ENTRY FAMILY MEMBER CAN BE RENAMED WITH:
26 -- 1) DIFFERENT PARAMETER NAMES;
27 -- 2) DIFFERENT DEFAULT VALUES;
28 -- AND THAT THE NEW NAMES/DEFAULTS ARE USED WHEN THE NEW NAME
33 WITH REPORT
; USE REPORT
;
39 TEST
( "C85018A", "CHECK THAT AN ENTRY FAMILY MEMBER CAN BE " &
40 "RENAMED AND THAT THE NEW NAMES/DEFAULTS ARE " &
41 "THOSE ASSOCIATED WITH THE RENAMED ENTITY" );
47 TYPE TA
IS ARRAY(1 .. 5) OF INTEGER;
51 (A
: INTEGER := 1; B
: TA
:= (1 .. 5 => 1));
54 PROCEDURE ENTA
(C
: INTEGER := 1; D
: TA
:= (1 .. 5 => 1))
55 RENAMES T
.ENT1
(TRUE);
57 PROCEDURE ENTB
(B
: INTEGER := 1; A
: TA
:= (1 .. 5 => 1))
58 RENAMES T
.ENT1
(TRUE);
60 PROCEDURE ENTC
(A
: INTEGER := 2; B
: TA
:= (1, 2, 3, 4, 5))
61 RENAMES T
.ENT1
(TRUE);
63 PROCEDURE ENTD
(C
: INTEGER := 2; D
: TA
:= (1, 2, 3, 4, 5))
64 RENAMES T
.ENT1
(TRUE);
70 ACCEPT ENT1
(IDENT_BOOL
(TRUE))
72 B
: TA
:= (1 .. 5 => 1)) DO
89 FAILED
( "PARAMETERS NOT PROPERLY INITIALIZED" );
92 T
.ENT1
(TRUE) (A
=> 6);
94 FAILED
( "INCORRECT RESULTS" );
99 FAILED
( "CASE 1 : INCORRECT RESULTS (DEFAULT)" );
102 ENTA
(D
=> (5, 4, 3, 2, 1));
104 FAILED
( "CASE 1 : INCORRECT RESULTS" );
109 FAILED
( "CASE 1 : INCORRECT RESULTS (DEFAULT)" );
112 ENTB
(A
=> (5, 4, 3, 2, 1), B
=> 2);
114 FAILED
( "CASE 1 : INCORRECT RESULTS " );
119 FAILED
( "CASE 2 : INCORRECT RESULTS (DEFAULT)" );
124 FAILED
( "CASE 2 : INCORRECT RESULTS " );
129 FAILED
( "CASE 2 : INCORRECT RESULTS (DEFAULT)" );
134 FAILED
( "CASE 2 : INCORRECT RESULTS " );