[Patch, Fortran] PR 39997/40541

[Janus Weil]

>> Regtested on x86_64-unknown-linux-gnu. Ok for trunk?
>>
> OK, though I would remove the extra line at
>
>   if (sym->ts.type == BT_UNKNOWN)
>     {
> +
>       if (sym->attr.flavor == FL_VARIABLE || sym->attr.flavor == FL_PARAMETER)

Thanks, committed with this change as r148996.

Cheers,
Janus



>> 2009-06-26  Janus Weil  <janus@gcc.gnu.org>
>>
>>       PR fortran/39997
>>       PR fortran/40541
>>       * decl.c (add_hidden_procptr_result): Copy the typespec to the hidden
>>       result.
>>       * expr.c (gfc_check_pointer_assign): Enable interface check for
>>       procedure pointer assignments where the rhs is a function returning a
>>       procedure pointer.
>>       * resolve.c (resolve_symbol): If an external procedure with unspecified
>>       return type can not be implicitly typed, it must be a subroutine.
>>
>>
>> 2009-06-26  Janus Weil  <janus@gcc.gnu.org>
>>
>>       PR fortran/39997
>>       PR fortran/40541
>>       * gfortran.dg/proc_ptr_15.f90: Fixed and extended.
>>       * gfortran.dg/proc_ptr_common_1.f90: Fixed invalid test case.
>>       * gfortran.dg/proc_ptr_result_1.f90: Ditto.
>>       * gfortran.dg/proc_ptr_result_5.f90: New.
>>
>
>