[Bug fortran/38289] "procedure( ), pointer" rejected
mikael at gcc dot gnu dot org
gcc-bugzilla@gcc.gnu.org
Thu Nov 27 21:13:00 GMT 2008
------- 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 (¤t_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
More information about the Gcc-bugs
mailing list