X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Ferror.c;h=fd8f0bb3bc06915de5920bf2243e2b18a219d183;hp=d92fd82004b1b702cc38494e9871dbb00545f946;hb=2f603cf0eb135bf67ff0bb570452df725a43c9ce;hpb=addf9aad2df2a9d4edb3988fbc61cdc0b5630a69

diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c
index d92fd82004b..fd8f0bb3bc0 100644
--- a/gcc/fortran/error.c
+++ b/gcc/fortran/error.c
@@ -549,6 +549,7 @@ error_print (const char *type, const char *format0, va_list argp)
 	{
 	  /* This is a position specifier.  See comment above.  */
 	  while (ISDIGIT(*format))
+	    format++;
 	    
 	  /* Skip over the dollar sign.  */
 	  format++;