[Beignet] [PATCH] utests: fix test case builtin_tgamma.

Song, Ruiling ruiling.song at intel.com
Wed Apr 29 01:18:18 PDT 2015


The patch looks better than mine, I think we can merge this patch into master. Any comments?
> --------
> 
> Compare with tgamma instead of tgammaf for better accuracy.
> Include negative inputs, and handle the resulting denormals.
> Print maximum error found.
> 
> Signed-off-by: Rebecca Palmer <rebecca_palmer at zoho.com>
> 
> diff --git a/utests/builtin_tgamma.cpp b/utests/builtin_tgamma.cpp index
> 47cc5f4..b7db69b 100644
> --- a/utests/builtin_tgamma.cpp
> +++ b/utests/builtin_tgamma.cpp
> @@ -20,10 +20,15 @@ void builtin_tgamma(void)
>     if (env_strict == NULL || strcmp(env_strict, "0") == 0)
>       ULPSIZE_FACTOR = 10000.;
> 
> -  for (int j = 0; j < 1024; j ++) {
> +  cl_device_fp_config fp_config;
> +  clGetDeviceInfo(device, CL_DEVICE_SINGLE_FP_CONFIG,
> + sizeof(cl_device_fp_config), &fp_config, 0);  bool denormals_supported
> + = fp_config & CL_FP_DENORM;  float max_ulp = 0, max_ulp_at = 0;
> +
> +  for (int j = 0; j < 128; j ++) {
>       OCL_MAP_BUFFER(0);
>       for (int i = 0; i < n; ++i) {
> -      src[i] = ((float*)buf_data[0])[i] = (j*n+i+1) * 0.001f;
> +      src[i] = ((float*)buf_data[0])[i] = j - 64 + i*0.001f;
>       }
>       OCL_UNMAP_BUFFER(0);
> 
> @@ -32,7 +37,14 @@ void builtin_tgamma(void)
>       OCL_MAP_BUFFER(1);
>       float *dst = (float*)buf_data[1];
>       for (int i = 0; i < n; ++i) {
> -      float cpu = tgammaf(src[i]);
> +      float cpu = tgamma(src[i]);
> +      if (!denormals_supported && std::fpclassify(cpu)==FP_SUBNORMAL
> && dst[i]==0) {
> +        cpu = 0;
> +      }
> +      if (fabsf(cpu - dst[i]) > cl_FLT_ULP(cpu) * max_ulp) {
> +        max_ulp = fabsf(cpu - dst[i]) / cl_FLT_ULP(cpu);
> +        max_ulp_at = src[i];
> +      }
>         if (isinf(cpu)) {
>           OCL_ASSERT(isinf(dst[i]));
>         } else if (fabsf(cpu - dst[i]) >= cl_FLT_ULP(cpu) * ULPSIZE_FACTOR)
> { @@ -42,6 +54,7 @@ void builtin_tgamma(void)
>       }
>       OCL_UNMAP_BUFFER(1);
>     }
> +  printf("max error=%f ulp at x=%f ", max_ulp, max_ulp_at);
>   }
> 
>   MAKE_UTEST_FROM_FUNCTION(builtin_tgamma);
> 
> _______________________________________________
> Beignet mailing list
> Beignet at lists.freedesktop.org
> http://lists.freedesktop.org/mailman/listinfo/beignet


More information about the Beignet mailing list