Re: [Patch, Fortran] PR 39997/40541

[Janus Weil <janus at gcc dot gnu dot org>]

>> 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.
>>
>
>