CVS difference for acats/cc/cc30003.a

Differences between 1.1 and version 1.2
Log of other versions for file acats/cc/cc30003.a

--- acats/cc/cc30003.a	2014/01/21 05:56:35	1.1
+++ acats/cc/cc30003.a	2015/03/14 04:19:00	1.2
@@ -69,6 +69,7 @@
 -- CHANGE HISTORY:
 --     28 Aug 2008 RLB Created test for RRS.
 --     29 Aug 2008 RLB Converted test to ACATS test.
+--     13 Mar 2015 RLB Eliminated overlong lines and tab characters.
 --
 generic
    type Base_Type is tagged private;
@@ -227,7 +228,8 @@
 
    package Counted_Rectangle_Inst is new CC30003_0 (CC30003_1.Rectangle);
 
-   type Counted_Square is new Counted_Rectangle_Inst.Counted_Type with null record;
+   type Counted_Square is new Counted_Rectangle_Inst.Counted_Type
+      with null record;
 
    procedure Make_Square (S : in out Counted_Square; Side : in Float);
 
@@ -339,7 +341,8 @@
       if Area (RT) /= 0.0 then
          Report.Failed ("Wrong area (RTC)");
       end if;
-      TcTouch.Validate ("tatcta", "Unexpected calls in right triangle calculations");
+      TcTouch.Validate ("tatcta", "Unexpected calls in right triangle " &
+                                  "calculations");
 
       Clear (T); -- Note: Original Clear overridden by generic one.
       Bump (T);
@@ -364,7 +367,8 @@
          Report.Failed ("Wrong count (T2)");
       end if;
 
-      TcTouch.Validate ("DBBDsbBsbBcc", "Unexpected calls in dynamic count calculations");
+      TcTouch.Validate ("DBBDsbBsbBcc", "Unexpected calls in dynamic count " &
+                                        "calculations");
    end;
 
    -- Dynamically bound calls here:
@@ -393,16 +397,20 @@
       Bump (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all));
       Bump (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all));
       Bump (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all));
-      if Count (Counted_Rectangle_Inst.Counted_Type'Class(List(2).all)) /= 1 then
+      if Count (Counted_Rectangle_Inst.Counted_Type'Class(List(2).all))
+            /= 1 then
          Report.Failed ("Wrong count (L2)");
       end if;
-      if Count (Counted_Triangle_Inst.Counted_Type'Class(List(3).all)) /= 2 then
+      if Count (Counted_Triangle_Inst.Counted_Type'Class(List(3).all))
+            /= 2 then
          Report.Failed ("Wrong count (L3)");
       end if;
-      if Count (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all)) /= 3 then
+      if Count (Counted_Rectangle_Inst.Counted_Type'Class(List(4).all))
+            /= 3 then
          Report.Failed ("Wrong count (L4)");
       end if;
-      TcTouch.Validate ("sbBBBBBBccc", "Unexpected calls dispatching count calculations");
+      TcTouch.Validate ("sbBBBBBBccc", "Unexpected calls dispatching count " &
+                                       "calculations");
 
       if Total_Area (List) /= (6.0+9.0+6.0+5.0) then
          Report.Failed ("Wrong total area");

Questions? Ask the ACAA Technical Agent