This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Patch, fortran] PR27122 - requirements for defined operators
- From: Paul Thomas <paulthomas2 at wanadoo dot fr>
- To: Paul Thomas <paulthomas2 at wanadoo dot fr>
- Cc: patch <gcc-patches at gcc dot gnu dot org>, "'fortran at gcc dot gnu dot org'" <fortran at gcc dot gnu dot org>
- Date: Tue, 18 Apr 2006 07:13:12 +0200
- Subject: Re: [Patch, fortran] PR27122 - requirements for defined operators
- References: <4443ACB3.3080909@wanadoo.fr>
Paul,,
/* See if function is already resolved. */
--- 1237,1252 ----
need_full_assumed_size--;
if (sym && sym->ts.type == BT_CHARACTER
! && sym->ts.cl
! && sym->ts.cl->length == NULL)
! && !sym->attr.dummy
! && !sym->attr.contained)
{
/* Internal procedures are taken care of in resolve_contained_fntype. */
! gfc_error ("Function '%s' is declared CHARACTER(*) and cannot "
! "be used at %L since it is not a dummy argument",
! sym->name, &expr->where);
! return FAILURE;
}
The bracket after NULL is, of course, extraneous and resulted from a bit
of "tidying up" before submission.
Cheers
Paul