syrk: error checking

codes/syrk/syrk.c

@@ -61,6 +61,25 @@ void print_array(int n,
   POLYBENCH_DUMP_FINISH;
 }
 
+extern double _binary_data_bin_start;
+extern double _binary_data_bin_end;
+
+static
+void calc_error(int n,
+		 DATA_TYPE POLYBENCH_2D(C,N,N,n,n))
+{
+    int i;
+    double err = 0;
+    double *accurate = &_binary_data_bin_start;
+    double *test = &(C[0][0]);
+
+    /* calculate the mean squared error */
+    for (i = 0; i < n*n; i++) {
+        err += (accurate[i] - test[i])*(accurate[i] - test[i]);
+    }
+    err /= n*n;
+    printf("error: %f\n", err);
+}
 
 /* Main computational kernel. The whole function will be timed,
    including the call and return. */
@@ -122,6 +141,8 @@ int main(int argc, char** argv)
      by the function call in argument. */
   polybench_prevent_dce(print_array(n, POLYBENCH_ARRAY(C)));
 
+  calc_error(n, POLYBENCH_ARRAY(C));
+
   /* Be clean. */
   POLYBENCH_FREE_ARRAY(C);
   POLYBENCH_FREE_ARRAY(A);