Changes in src/tests/sum.c [2b9ddf2:09687aa]

File:

• src/tests/sum.c (modified) (7 diffs)

src/tests/sum.c

@@ -11 +11 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Jan 26 11:31:02 2018
-// Update Count     : 271
+// Last Modified On : Thu Dec  7 09:13:36 2017
+// Update Count     : 261
 //
 
 #include <fstream>
-#include <stdlib>
 
 void ?{}( int & c, zero_t ) { c = 0; }
@@ -29 +28 @@
 
 forall( otype T | sumable( T ) )                                                // use trait
-T sum( unsigned int size, T a[] ) {
-        T total = 0;                                                                            // instantiate T from 0 by calling constructor
-        for ( unsigned int i = 0; i < size; i += 1 )
-                total += a[i];                                                                  // select appropriate +
+T sum( unsigned int n, T a[] ) {
+        T total = 0;                                                                            // instantiate T, select 0
+        for ( unsigned int i = 0; i < n; i += 1 )
+                total += a[i];                                                                  // select +
         return total;
 } // sum
@@ -56 +55 @@
         } // for
         sout | "sum from" | low | "to" | High | "is"
-                 | sum( size, (unsigned char *)a ) | ", check" | (int)s | endl;
+                | sum( size, (unsigned char *)a ) | ", check" | (int)s | endl;
 
         int s = 0, a[size], v = low;
@@ -64 +63 @@
         } // for
         sout | "sum from" | low | "to" | High | "is"
-                 | sum( size, (int *)a ) | ", check" | (int)s | endl;
+                | sum( size, (int *)a ) | ", check" | (int)s | endl;
 
         float s = 0.0f, a[size], v = low / 10.0f;
@@ -72 +71 @@
         } // for
         sout | "sum from" | low / 10.0f | "to" | High / 10.0f | "is"
-                 | sum( size, (float *)a ) | ", check" | (float)s | endl;
+                | sum( size, (float *)a ) | ", check" | (float)s | endl;
 
         double s = 0.0, a[size], v = low / 10.0;
@@ -80 +79 @@
         } // for
         sout | "sum from" | low / 10.0 | "to" | High / 10.0 | "is"
-                 | sum( size, (double *)a ) | ", check" | (double)s | endl;
+                | sum( size, (double *)a ) | ", check" | (double)s | endl;
 
         struct S { int i, j; };
@@ -99 +98 @@
         } // for
         sout | "sum from" | low | "to" | High | "is"
-                 | sum( size, (S *)a ) | ", check" | (S)s | endl;
-
-        forall( otype Impl | sumable( Impl ) )
-        struct GS {
-                Impl * x, * y;
-        };
-        GS(int) gs;
-        gs.x = anew( size );                                                            // create array storage for field
-        s = 0; v = low;
-        for ( int i = 0; i < size; i += 1, v += 1 ) {
-                s += (int)v;
-                gs.x[i] = (int)v;                                                               // set filed array in generic type
-        } // for
-        sout | "sum from" | low | "to" | High | "is"
-                 | sum( size, gs.x ) | ", check" | (int)s | endl; // add filed array in generic type
+                | sum( size, (S *)a ) | ", check" | (S)s | endl;
 } // main