------- Comment #2 from mikael at gcc dot gnu dot org 2008-12-08 21:06 -------
reduced:
module modx
use, intrinsic :: iso_c_binding
end module modx
block data
use modx
end
A simple way to fix it would be this:
Index: resolve.c
===================================================================
--- resolve.c (révision 142546)
+++ resolve.c (copie de travail)
@@ -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;
Paul, I'm adding you as you may know better what to do here.
see http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33295#c7
--
mikael 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=37829
