CVS difference for acats/b3/b34005q.ada

Differences between 1.2 and version 1.3
Log of other versions for file 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