[Patch, Fortran] PR 37201 - fix character-returning bind(c) functions

[Jerry DeLisle]

Tobias Burnus wrote:
> Hello Jerry, hi all,
> 
> On Sun, Aug 24, 2008 at 10:11:27AM -0700, Jerry DeLisle wrote:
>> OK to commit.  Also add PR for the other situation we discussed on IRC.
> 
> I decided not to add a PR and fix it right away. The problem was that
> there was no checking for
> 
>   function foo() bind(C) RESULT(res)
> 
> as  res->attr.function = 0 and res->attr.is_bind_c = 0
> The current test only works if sym->result == sym.
> 
> Built and regtesting* on x86-64-linux.
> OK for the trunk?
> 
> Tobias
> 
OK after reg testing is OK.

Jerry