------- Comment #2 from pault at gcc dot gnu dot org 2006-11-23 17:55 -------
Tobias,
This one liner does the right thing but I have no time right now to do anything
with it:
Index: gcc/fortran/resolve.c
===================================================================
*** gcc/fortran/resolve.c (revision 119077)
--- gcc/fortran/resolve.c (working copy)
*************** resolve_function (gfc_expr * expr)
*** 1523,1528 ****
--- 1523,1529 ----
else if (expr->value.function.actual != NULL
&& expr->value.function.isym != NULL
&& expr->value.function.isym->generic_id != GFC_ISYM_LBOUND
+ && expr->value.function.isym->generic_id != GFC_ISYM_LEN
&& expr->value.function.isym->generic_id != GFC_ISYM_LOC
&& expr->value.function.isym->generic_id != GFC_ISYM_PRESENT)
{
If you want to regtest it, I would be OK with it being applied as obvious to
trunk, 4.2 and 4.1.
Paul
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29941
