------- Comment #1 from pault at gcc dot gnu dot org 2010-03-18 18:17 -------
This is fixed by the following, which is not yet regtested:
Index: ../trunk/gcc/fortran/resolve.c
===================================================================
--- ../trunk/gcc/fortran/resolve.c (revision 157419)
+++ ../trunk/gcc/fortran/resolve.c (working copy)
@@ -1841,6 +1841,7 @@
/* Non-assumed length character functions. */
if (sym->attr.function && sym->ts.type == BT_CHARACTER
+ && gsym->ns->proc_name->ts.u.cl
&& gsym->ns->proc_name->ts.u.cl->length != NULL)
{
gfc_charlen *cl = sym->ts.u.cl;
>From the style, this does not look like it was my addition :-)
Paul
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43044
