CVS difference for acats/lxh/lxh40012.am

Differences between 1.2 and version 1.3
Log of other versions for file acats/lxh/lxh40012.am

--- acats/lxh/lxh40012.am	1998/09/28 22:44:04	1.2
+++ acats/lxh/lxh40012.am	2017/02/09 02:04:35	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.
 --*
@@ -41,7 +41,7 @@
 --      This test is an example of test design "A".
 --
 --      Dashed lines indicate file boundaries.
--- 
+--
 --    A:
 --      -----------------------------   This fails at link time.  (L test)
 --      | Config pragma             |
@@ -52,12 +52,12 @@
 --      - - - - - - - - - - - - - - -  > may be combined into one file
 --      | Main withs both units     | /
 --      -----------------------------
--- 
+--
 --      Note that the above example may fail on compilation of the third file,
 --      depending on what the compiler considers the "compilation environment"
 --      to be. This shall be reflected in the applicability criteria for those
 --      tests.
--- 
+--
 --    B:
 --      -----------------------------   This fails at link time.  (L test)
 --      | Unit that violates pragma |
@@ -68,7 +68,7 @@
 --      - - - - - - - - - - - - - - -
 --      | Main withs both units     |
 --      -----------------------------
--- 
+--
 --    C:
 --      -----------------------------   This links and runs (C test)
 --      | Config pragma             |
@@ -80,14 +80,14 @@
 --      | unit that violates the    |
 --      | pragma                    |
 --      -----------------------------
--- 
+--
 --    D:
 --      -----------------------------   This fails at compile time
 --      | Config pragma             |   (B Test)
 --      | Unit(s) that violate      |
 --      | pragma                    |
 --      -----------------------------
--- 
+--
 --    E:
 --      -----------------------------   This fails at compile time
 --      | Config pragma             |   (B Test)
@@ -97,7 +97,7 @@
 --      | Unit that violates pragma |   However, the second file should
 --      -----------------------------   successfully compile
 --
--- 
+--
 -- SPECIAL REQUIREMENTS:
 --      This test must be built in a single partition.
 --      To build this test:
@@ -134,6 +134,9 @@
 --                         checking.
 --      05 NOV 96   SAIC   Restructured for release 2.1
 --      29 JUN 98   EDS    Changed main procedure name.
+--      02 FEB 17   RLB    Corrected format of error tag (and added a location
+--                         indicator).
+--
 --!
 
 ------------------------------------------------------------------- LXH40012
@@ -141,9 +144,9 @@
 with LXH4001_0;
 procedure LXH40012 is
 
-  protected Should_Be_Illegal is                           -- OPTIONAL ERROR
-    entry Passeren;         -- protected types not allowed in this partition
-    entry Vrijgeven;  -- pragma Restrictions(No_Protected_Types) in LXH40010
+  protected Should_Be_Illegal is                   -- OPTIONAL ERROR: {3}
+    entry Passeren;     -- Protected types not allowed in this partition.
+    entry Vrijgeven;    -- pragma Restrictions(No_Protected_Types) in LXH40010.
   private
     In_Use : Boolean := False;
   end Should_Be_Illegal;

Questions? Ask the ACAA Technical Agent