[Bug fortran/43244] Invalid statement misinterpreted as FINAL declaration

[janus at gcc dot gnu dot org]

------- 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