[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org ---
Index: io.c
===================================================================
--- io.c        (revision 201791)
+++ io.c        (working copy)
@@ -1173,7 +1173,7 @@ check_format_string (gfc_expr *e, bool i
       if (e->value.character.string[i] != ' ')
         {
           format_locus.nextc += format_length + 1; 
-          gfc_warning ("Extraneous characters in format at %L",
&format_locus); 
+          gfc_warning ("Extraneous characters in format at %C"); 
           break;
         }
   return rv;

laptop-kargl:kargl[218] cat g.f90
1 format(i5)
print'()j'
END
laptop-kargl:kargl[219] gfc4x -c g.f90
g.f90:2.10:

print'()j'
          1
Warning: Extraneous characters in format at (1)