------- 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