[Patch, Fortran] Fix some libgfortran issues found by coverity

[Tobias Burnus]

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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: coverity-m4.diff
Type: text/x-patch
Size: 92707 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20121016/988faa42/attachment.bin>