CVS difference for acats/new/bb42001.a

Differences between 1.3 and version 1.4
Log of other versions for file acats/new/bb42001.a

--- acats/new/bb42001.a	2016/03/29 06:12:09	1.3
+++ acats/new/bb42001.a	2017/01/21 04:28:19	1.4
@@ -40,7 +40,7 @@
 -- CHANGE HISTORY:
 --     25 Jan 2016   RLB   Created test.
 --     28 Mar 2016   RLB   Added error location codes.
---
+--     20 Jan 2017   RLB   Corrected two incorrect error location codes.
 --!
 procedure BB42001 is
 
@@ -82,7 +82,7 @@
       pragma Assert (Iters = Bound, Message => Iters);        -- ERROR: {48;2}
 
       pragma Assert (My_Obj and True,
-                     Message => Integer'Image(Iters));        -- OK. {1:22;2{
+                     Message => Integer'Image(Iters));        -- OK. {1:22;2}
 
    end Loop_Counter;
 
@@ -97,7 +97,7 @@
 
       pragma Assert (Result);                                 -- ERROR: {22;2}
 
-      pragma Assert (Roll, Message => "Oh boy");              -- ERROR: {25;23}
+      pragma Assert (Roll, Message => "Oh boy");              -- ERROR: {22;23}
 
       pragma Assert (Roll > Mess, Message => Float'Image(Roll));-- OK. {22;2}
 

Questions? Ask the ACAA Technical Agent