------- Comment #5 from janus at gcc dot gnu dot org 2010-03-03 15:40 ------- Quick fix for free form:
Index: gcc/fortran/decl.c =================================================================== --- gcc/fortran/decl.c (revision 157195) +++ gcc/fortran/decl.c (working copy) @@ -7810,6 +7810,13 @@ bool first, last; gfc_symbol* block; + if (gfc_current_form == FORM_FREE) + { + char c = gfc_peek_ascii_char (); + if (!gfc_is_whitespace (c) && c != ':') + return MATCH_NO; + } + if (gfc_state_stack->state != COMP_DERIVED_CONTAINS) { gfc_error ("FINAL declaration at %C must be inside a derived type " Would this also be acceptable for fixed form? -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43244