CVS difference for acats/b3/b34005q.ada
--- acats/b3/b34005q.ada 1999/03/11 00:18:54 1.2
+++ acats/b3/b34005q.ada 2002/10/03 20:25:16 1.3
@@ -3,22 +3,22 @@
-- Grant of Unlimited Rights
--
-- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
--- d DCA100-97-D-0025, the U.S. Government obtained
+-- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
-- unlimited rights in the software and documentation contained herein.
--- defined in DFAR 252.227-7013(a)(19). By making
--- the Government intends to confer upon all
--- rights equal to those held by the Government.
--- rights to use, duplicate, release or disclose the
--- ata and computer software in whole or in part, in
--- ny purpose whatsoever, and to have or permit others
+-- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making
+-- this public release, the Government intends to confer upon all
+-- recipients unlimited rights equal to those held by the Government.
+-- These rights include rights to use, duplicate, release or disclose the
+-- released technical data and computer software in whole or in part, in
+-- any manner and for any purpose whatsoever, and to have or permit others
-- to do so.
--
-- DISCLAIMER
--
-- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
--- THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
+-- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
-- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
--- ION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
+-- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
-- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
-- PARTICULAR PURPOSE OF SAID MATERIAL.
--*
@@ -28,8 +28,10 @@
-- WHOSE COMPONENT TYPE IS A LIMITED TYPE.
-- HISTORY:
--- ORIGINAL TEST.
+-- JRK 09/18/86 CREATED ORIGINAL TEST.
-- PWN 02/02/95 REMOVED INCONSISTENCIES WITH ADA 9X.
+-- RLB 10/03/02 REMOVED ILLEGAL (BY AI-246) TYPE CONVERSIONS AND
+-- SUPPORTING CODE.
WITH SYSTEM; USE SYSTEM;
@@ -50,8 +52,6 @@
TYPE T IS NEW PARENT;
- TYPE ARR IS ARRAY (2 .. 4) OF COMPONENT;
-
X, Y, Z : T;
W : PARENT;
@@ -96,20 +96,6 @@
NULL;
END C;
- FUNCTION U RETURN ARR IS
- X : ARR;
- BEGIN
- FOR I IN 2 .. 4 LOOP
- INIT (X (I), 1);
- END LOOP;
- RETURN X;
- END U;
-
- PROCEDURE U (X : ARR) IS
- BEGIN
- NULL;
- END U;
-
PACKAGE BODY PKG IS
PROCEDURE INIT (X : OUT LP; V : INTEGER) IS
BEGIN
@@ -138,8 +124,6 @@
D := DURATION (X); -- ERROR: EXPLICIT CONVERSION.
P (T (S)); -- ERROR: EXPLICIT CONVERSION.
S := STRING (X); -- ERROR: EXPLICIT CONVERSION.
- P (T (U)); -- OK: EXPLICIT CONVERSION.
- U (ARR (X)); -- OK: EXPLICIT CONVERSION.
P (N); -- ERROR: IMPLICIT CONVERSION.
P (R); -- ERROR: IMPLICIT CONVERSION.
P (3); -- ERROR: INTEGER LITERAL.
Questions? Ask the ACAA Technical Agent