use huge_val not huge_valf for portability
@@ -35,17 +35,18 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#if defined(BUILD_DOUBLE)
#ifndef INFINITY
-#define INFINITY HUGE_VALF
+#define INFINITY HUGE_VAL
#endif
CTEST(dnrm2,dnrm2_inf)
{
+ int i;
double x[29];
blasint incx=1;
blasint n=28;
double res1=0.0f, res2=INFINITY;
- for (int i=0;i<n;i++)x[i]=0.0f;
+ for (i=0;i<n;i++)x[i]=0.0f;
x[10]=-INFINITY;
res1=BLASFUNC(dnrm2)(&n, x, &incx);
ASSERT_DBL_NEAR_TOL(res2, res1, DOUBLE_EPS);
@@ -53,12 +54,13 @@ CTEST(dnrm2,dnrm2_inf)
}
CTEST(dnrm2,dnrm2_tiny)
{
+ int i;
double x[29];
blasint incx=1;
blasint n=28;
double res1=0.0f, res2=0.0f;
- for (int i=0;i<n;i++)x[i]=7.457008414e-310;
+ for (i=0;i<n;i++)x[i]=7.457008414e-310;
res1=BLASFUNC(dnrm2)(&n, x, &incx);
ASSERT_DBL_NEAR_TOL(res2, res1, DOUBLE_EPS);
}
