Index: gcc/fortran/symbol.c
===================================================================
--- gcc/fortran/symbol.c	(revision 269332)
+++ gcc/fortran/symbol.c	(working copy)
@@ -525,7 +525,7 @@
   /* The copying of procedure dummy arguments for module procedures in
      a submodule occur whilst the current state is COMP_CONTAINS. It
      is necessary, therefore, to let this through.  */
-  if (attr->dummy
+  if (name && attr->dummy
       && (attr->function || attr->subroutine)
       && gfc_current_state () == COMP_CONTAINS
       && !(gfc_new_block && gfc_new_block->abr_modproc_decl))