CVS difference for acats/b7/b73001e.ada

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

--- acats/b7/b73001e.ada	1999/03/11 00:31:55	1.2
+++ acats/b7/b73001e.ada	2017/02/09 02:04:29	1.3
@@ -3,32 +3,38 @@
 --                             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.
 --*
--- SUBPROGRAM SPECIFICATION IS PROVIDED IN A 
+--
+-- OBJECTIVE:
+--    CHECK THAT IF A GENERIC SUBPROGRAM SPECIFICATION IS PROVIDED IN A
 --    GENERIC OR NON-GENERIC PACKAGE SPECIFICATION, A PACKAGE BODY
 --    MUST BE PROVIDED.
-
-
--- 
--- 
+--
+-- CHANGE HISTORY:
+--    RM  05/05/81
+--    JBG 09/19/83
+--    RLB 02/06/17  Added error location indicators so reasonable error
+--                  reporting strategies are directly supported.
+--
+--!
 
 PROCEDURE  B73001E  IS
 BEGIN
@@ -40,7 +46,7 @@
                PROCEDURE  PR1(A1 : INTEGER; A2 : BOOLEAN);
           END  PACK1;
 
-     BEGIN               -- ERROR: BODY OF PACK1 MISSING.
+     BEGIN               -- ERROR: {5:11} BODY OF PACK1 MISSING.
           NULL;
      END;
 
@@ -53,7 +59,7 @@
                          RETURN INTEGER;
           END  PACK2;
 
-     BEGIN               -- ERROR: BODY OF PACK2 MISSING
+     BEGIN               -- ERROR: {6:11} BODY OF PACK2 MISSING
           NULL;
      END;
 
@@ -65,7 +71,7 @@
                PROCEDURE  PR1(A1 : INTEGER; A2 : BOOLEAN);
           END  PACK3;
 
-     BEGIN               -- ERROR: BODY OF PACK3 MISSING.
+     BEGIN               -- ERROR: {5:11} BODY OF PACK3 MISSING.
           NULL;
      END;
 
@@ -79,7 +85,7 @@
                          RETURN INTEGER;
           END  PACK4;
 
-     BEGIN               -- ERROR: BODY OF PACK4 MISSING.
+     BEGIN               -- ERROR: {7:11} BODY OF PACK4 MISSING.
           NULL;
      END;
 

Questions? Ask the ACAA Technical Agent