*ping* Re: [Patch, Fortran] Fix some libgfortran issues found by coverity

[Tobias Burnus]

* ping *

On 16.10.2012 23:18, Tobias Burnus wrote:
> In the Bessel-function algorithm, there was the useless code:
>   ret->base_addr = ret->base_addr;
>
> And in all files which included ifunction.m4 is such code:
>
>
> iall_i4 (gfc_array_i4 * const restrict retarray,
> ...
>         if (len <= 0)
>           *dest = 0;
>         else
> ...
> }
>
> miall_i4 (gfc_array_i4 * const restrict retarray,
> ...
>   if (len <= 0)
>     return;
> ...
>         if (len <= 0)
>           *dest = 0;
>         else
>
> Hence, for the MASK version (m'name`), the second if condition is 
> always false.
>
> Build and regtested on x86-64-gnu-linux.
> OK for the trunk?
>
> Tobias