Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / ada / acats / tests / c8 / c85011a.ada
blob538f9c235862c74b9a20afd40e39611922159b95
1 -- C85011A.ADA
3 -- Grant of Unlimited Rights
4 --
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
14 -- to do so.
16 -- DISCLAIMER
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.
24 --*
25 -- OBJECTIVE:
26 -- CHECK THAT A PACKAGE CAN BE RENAMED AND THE NEW NAME CAN APPEAR
27 -- IN A RENAMING DECLARATION, AND THAT A 'USE' CLAUSE CAN REFER TO
28 -- THE PACKAGE BY EITHER NAME, INCLUDING RENAMINGS OF GENERIC AND
29 -- NONGENERIC PACKAGES INSIDE THEMSELVES.
31 -- HISTORY:
32 -- JET 04/28/88 CREATED ORIGINAL TEST.
34 WITH REPORT; USE REPORT;
35 PROCEDURE C85011A IS
37 PACKAGE PACK1 IS
38 I : NATURAL := 0;
39 PACKAGE PACKA RENAMES PACK1;
40 END PACK1;
42 GENERIC
43 TYPE T IS RANGE <>;
44 PACKAGE GPACK IS
45 J : T := T'FIRST;
46 PACKAGE PACKB RENAMES GPACK;
47 END GPACK;
49 PACKAGE PACK2 IS NEW GPACK(NATURAL);
51 PACKAGE PACK3 RENAMES PACK1;
52 PACKAGE PACK4 RENAMES PACK2;
53 PACKAGE PACK5 RENAMES PACK3;
54 PACKAGE PACK6 RENAMES PACK4;
56 BEGIN
57 TEST ("C85011A", "CHECK THAT A PACKAGE CAN BE RENAMED AND THE " &
58 "NEW NAME CAN APPEAR IN A RENAMING " &
59 "DECLARATION, AND THAT A 'USE' CLAUSE CAN " &
60 "REFER TO THE PACKAGE BY EITHER NAME, " &
61 "INCLUDING RENAMINGS OF GENERIC AND NONGENERIC " &
62 "PACKAGES INSIDE THEMSELVES");
64 IF PACK1.I /= IDENT_INT(0) THEN
65 FAILED ("INCORRECT VALUE OF PACK1.I");
66 END IF;
68 IF PACK2.J /= IDENT_INT(0) THEN
69 FAILED ("INCORRECT VALUE OF PACK2.J");
70 END IF;
72 IF PACK3.I /= IDENT_INT(0) THEN
73 FAILED ("INCORRECT VALUE OF PACK3.I");
74 END IF;
76 IF PACK4.J /= IDENT_INT(0) THEN
77 FAILED ("INCORRECT VALUE OF PACK4.J");
78 END IF;
80 IF PACK5.I /= IDENT_INT(0) THEN
81 FAILED ("INCORRECT VALUE OF PACK5.I");
82 END IF;
84 IF PACK6.J /= IDENT_INT(0) THEN
85 FAILED ("INCORRECT VALUE OF PACK6.J");
86 END IF;
88 IF PACK1.PACKA.I /= IDENT_INT(0) THEN
89 FAILED ("INCORRECT VALUE OF PACK1.PACKA.I");
90 END IF;
92 IF PACK2.PACKB.J /= IDENT_INT(0) THEN
93 FAILED ("INCORRECT VALUE OF PACK2.PACKB.J");
94 END IF;
96 DECLARE
97 USE PACK1, PACK2;
98 BEGIN
99 IF I /= IDENT_INT(0) THEN
100 FAILED ("INCORRECT VALUE OF I (1)");
101 END IF;
103 IF J /= IDENT_INT(0) THEN
104 FAILED ("INCORRECT VALUE OF J (1)");
105 END IF;
106 END;
108 DECLARE
109 USE PACK3, PACK4;
110 BEGIN
111 IF I /= IDENT_INT(0) THEN
112 FAILED ("INCORRECT VALUE OF I (2)");
113 END IF;
115 IF J /= IDENT_INT(0) THEN
116 FAILED ("INCORRECT VALUE OF J (2)");
117 END IF;
118 END;
120 DECLARE
121 USE PACK5, PACK6;
122 BEGIN
123 IF I /= IDENT_INT(0) THEN
124 FAILED ("INCORRECT VALUE OF I (3)");
125 END IF;
127 IF J /= IDENT_INT(0) THEN
128 FAILED ("INCORRECT VALUE OF J (3)");
129 END IF;
130 END;
132 DECLARE
133 USE PACK1.PACKA, PACK2.PACKB;
134 BEGIN
135 IF I /= IDENT_INT(0) THEN
136 FAILED ("INCORRECT VALUE OF I (4)");
137 END IF;
139 IF J /= IDENT_INT(0) THEN
140 FAILED ("INCORRECT VALUE OF J (4)");
141 END IF;
142 END;
144 RESULT;
145 END C85011A;