CVS difference for acats/cd/cd2a24a.ada

Differences between 1.2 and version 1.3
Log of other versions for file acats/cd/cd2a24a.ada

--- acats/cd/cd2a24a.ada	1999/03/11 01:40:30	1.2
+++ acats/cd/cd2a24a.ada	2014/03/21 01:24:04	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.
 --*
@@ -35,6 +35,7 @@
 --                  OPERATORS ON 'SIZE TESTS, AND ADDED CHECK ON
 --                  REPRESENTATION CLAUSE.
 --     WMC 03/27/92 ELIMINATED TEST REDUNDANCIES.
+--     RLB 03/20/14 ELIMINATED ADA 2012 INCOMPATIBILITY.
 
 WITH REPORT; USE REPORT;
 WITH LENGTH_CHECK;                      -- CONTAINS A CALL TO 'FAILED'.
@@ -51,6 +52,7 @@
      C0 : CHECK_TYPE := ZERO;
      C1 : CHECK_TYPE := ONE;
      C2 : CHECK_TYPE := TWO;
+     C3 : CHECK_TYPE := TWO;
 
      TYPE ARRAY_TYPE IS ARRAY (0 .. 2) OF CHECK_TYPE;
      CHARRAY : ARRAY_TYPE := (ZERO, ONE, TWO);
@@ -114,9 +116,9 @@
                       "NOT AFFECTED BY THE REPRESENTATION CLAUSE");
 
      CHECK_1 (C0, BASIC_SIZE, "CHECK_TYPE");
-     PROC (ZERO, TWO, C1, C2, C2);
+     PROC (ZERO, TWO, C1, C2, C3);
 
-     IF C1 /= ONE OR C2 /= TWO THEN
+     IF C1 /= ONE OR C2 /= TWO OR C3 /= TWO THEN
           FAILED ("INCORRECT VALUE RETURNED BY PROCEDURE");
      END IF;
 

Questions? Ask the ACAA Technical Agent