Build the comparison functions as needed to avoid missing references

martin-frbg · web-flow · commit 7d7a6c670820 · 2026-02-18T11:43:43.000+01:00
diff --git a/utest/test_extensions/common.c b/utest/test_extensions/common.c
@@ -50,6 +50,7 @@ void drand_generate(double *alpha, blasint n)
         alpha[i] = (double)rand() / (double)RAND_MAX;
 }
 
+#ifdef BUILD_SINGLE
 /**
  * Find difference between two rectangle matrix
  * return norm of differences
@@ -76,7 +77,8 @@ float smatrix_difference(float *a, float *b, blasint cols, blasint rows, blasint
     }
     return norm/(float)(rows);
 }
-
+#endif
+#ifdef BUILD_DOUBLE
 double dmatrix_difference(double *a, double *b, blasint cols, blasint rows, blasint ld)
 {
     blasint i = 0;
@@ -99,7 +101,7 @@ double dmatrix_difference(double *a, double *b, blasint cols, blasint rows, blas
     }
     return norm/(double)(rows);
 }
-
+#endif
 /**
  * Complex conjugate operation for vector
  * 

Original file line number	Diff line number	Diff line change
`@@ -50,6 +50,7 @@ void drand_generate(double *alpha, blasint n)`
`50`	`50`	`alpha[i] = (double)rand() / (double)RAND_MAX;`
`51`	`51`	`}`
`52`	`52`
	`53`	`+#ifdef BUILD_SINGLE`
`53`	`54`	`/**`
`54`	`55`	`* Find difference between two rectangle matrix`
`55`	`56`	`* return norm of differences`
`@@ -76,7 +77,8 @@ float smatrix_difference(float a, float b, blasint cols, blasint rows, blasint`
`76`	`77`	`}`
`77`	`78`	`return norm/(float)(rows);`
`78`	`79`	`}`
`79`		`-`
	`80`	`+#endif`
	`81`	`+#ifdef BUILD_DOUBLE`
`80`	`82`	`double dmatrix_difference(double a, double b, blasint cols, blasint rows, blasint ld)`
`81`	`83`	`{`
`82`	`84`	`blasint i = 0;`
`@@ -99,7 +101,7 @@ double dmatrix_difference(double a, double b, blasint cols, blasint rows, blas`
`99`	`101`	`}`
`100`	`102`	`return norm/(double)(rows);`
`101`	`103`	`}`
`102`		`-`
	`104`	`+#endif`
`103`	`105`	`/**`
`104`	`106`	`* Complex conjugate operation for vector`
`105`	`107`	`*`