------- Comment #2 from mikael at gcc dot gnu dot org  2008-11-27 21:12 -------
Is this enough?

Index: decl.c
===================================================================
--- decl.c      (révision 142242)
+++ decl.c      (copie de travail)
@@ -4094,6 +4094,7 @@ match_procedure_decl (void)
   /* Get the type spec. for the procedure interface.  */
   old_loc = gfc_current_locus;
   m = gfc_match_type_spec (&current_ts, 0);
+  gfc_gobble_whitespace ();
   if (m == MATCH_YES || (m == MATCH_NO && gfc_peek_ascii_char () == ')'))
     goto got_ts;



-- 


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