------- Comment #4 from mikael at gcc dot gnu dot org  2009-01-19 22:33 -------
This removes the ICE:

Index: primary.c
===================================================================
--- primary.c   (révision 143501)
+++ primary.c   (copie de travail)
@@ -2370,6 +2370,8 @@
   bool implicit_char;
   gfc_ref *ref;

+  where = gfc_current_locus;
+
   m = gfc_match_name (name);
   if (m != MATCH_YES)
     return m;
@@ -2385,7 +2387,6 @@

   sym = symtree->n.sym;
   e = NULL;
-  where = gfc_current_locus;

   /* If this is an implicit do loop index and implicitly typed,
      it should not be host associated.  */


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38907