This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/24705] ICE on assumed length character result
- From: "paul dot richard dot thomas at cea dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 10 Nov 2005 15:54:31 -0000
- Subject: [Bug fortran/24705] ICE on assumed length character result
- References: <bug-24705-87@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #2 from paul dot richard dot thomas at cea dot fr 2005-11-10 15:54 -------
The following patch fixes this PR. Please note that it has yet to be regtested
but I do not see any problems with it. I do not thank that PR15809 has
anything to do with this one.
Index: gcc/gcc/fortran/resolve.c
===================================================================
RCS file: /cvsroot/gcc/gcc/gcc/fortran/resolve.c,v
retrieving revision 1.63
diff -c -p -r1.63 resolve.c
*** gcc/gcc/fortran/resolve.c 24 Oct 2005 19:28:17 -0000 1.63
--- gcc/gcc/fortran/resolve.c 10 Nov 2005 15:48:51 -0000
*************** resolve_contained_fntype (gfc_symbol * s
*** 294,299 ****
--- 294,307 ----
sym->attr.untyped = 1;
}
}
+
+ if (sym->ts.type == BT_CHARACTER)
+ {
+ gfc_charlen *cl = sym->ts.cl;
+ if (!cl || !cl->length)
+ gfc_error ("Character-valued internal function '%s' at %L must "
+ "not be automatic length", sym->name, &sym->declared_at);
+ }
}
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24705