------- Comment #5 from tkoenig at gcc dot gnu dot org 2009-01-01 18:38 -------
This is looking promising (and passes regression-test), and I think
that this does the right thing (the symbol in question doesn't need
to be a procedure, correct?)
Paul, could you maybe comment?
$ svn diff
Index: resolve.c
===================================================================
--- resolve.c (revision 142857)
+++ resolve.c (working copy)
@@ -9263,6 +9263,7 @@ resolve_symbol (gfc_symbol *sym)
module function and is not PRIVATE. */
if (sym->ts.type == BT_DERIVED
&& sym->ts.derived->attr.use_assoc
+ && sym->ns->proc_name
&& sym->ns->proc_name->attr.flavor == FL_MODULE)
{
gfc_symbol *ds;
--
tkoenig at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |pault at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38672
