[Bug fortran/29819] Error/warning message should ignore comments for "1" in %C output

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=29819

--- Comment #3 from kargl at gcc dot gnu.org ---
Index: parse.c
===================================================================
--- parse.c     (revision 236243)
+++ parse.c     (working copy)
@@ -5237,6 +5237,7 @@ parse_contained (int module)
   gfc_statement st;
   gfc_symbol *sym;
   gfc_entry_list *el;
+  locus old_loc;
   int contains_statements = 0;
   int seen_error = 0;

@@ -5253,6 +5254,7 @@ parse_contained (int module)
  next:
       /* Process the next available statement.  We come here if we got an
error
         and rejected the last statement.  */
+      old_loc = gfc_current_locus;
       st = next_statement ();

       switch (st)
@@ -5358,7 +5360,7 @@ parse_contained (int module)
   pop_state ();
   if (!contains_statements)
     gfc_notify_std (GFC_STD_F2008, "CONTAINS statement without "
-                   "FUNCTION or SUBROUTINE statement at %C");
+                   "FUNCTION or SUBROUTINE statement at %L", &old_loc);
 }