This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Patch, Fortran] PR 39997/40541
- From: Tobias Burnus <burnus at net-b dot de>
- To: Janus Weil <janus at gcc dot gnu dot org>
- Cc: gfortran <fortran at gcc dot gnu dot org>, gcc patches <gcc-patches at gcc dot gnu dot org>
- Date: Fri, 26 Jun 2009 23:29:11 +0200
- Subject: Re: [Patch, Fortran] PR 39997/40541
- References: <854832d40906260230y13f7704l9e86ece21ef0fa27@mail.gmail.com>
Janus Weil schrieb:
> 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)
Tobias
> 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.
>