[Patch/gfortran] Fix for PR16939

[Tobias Schlüter]

THOMAS Paul Richard 169137 wrote:
> Sorry,
> 
> I meant to say that
> 
> program testch
>   print *, ch()
> contains
>   function ch result(str)
>     character(len = 10)  :: str
>     str ="hello"
>   end function ch
> end program testch
> 
> now fails.  The pointer case does too!

"now" as in "it didn't fail before the f2c patch, but now it fails on a
vanilla mainline"???

/me starts to look for anything that's not guarded by BT_COMPLEX || BT_REAL in
the patch.

- Tobi