[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58225 --- Comment #8 from Dominique d'Humieres --- For test I have checked 1 format(i5) print'()j' end I get 000f m t . f 9 0 : 2 : 1 6 : nl nl sp 020p r i n t ' ( ) j ' nl sp sp sp sp sp 040 sp sp sp sp sp sp sp sp sp sp sp 1 nl W a r 060n i n g : sp E x t r a n e o u s 100 sp c h a r a c t e r s sp i n sp f 120o r m a t sp a t sp ( 1 ) nl 135 For print'()j' end I get print'()j' 1 Warning: Extraneous characters in format at (1) or 000f m t . f 9 0 : 1 : 8 : nl nl sp p 020r i n t ' ( ) j ' nl sp sp sp sp sp sp 040 sp sp 1 nl W a r n i n g : sp E x t 060r a n e o u s sp c h a r a c t e 100r s sp i n sp f o r m a t sp a t sp (and 9 sp would be better).
[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58225 Thomas Koenig changed: What|Removed |Added Status|RESOLVED|NEW Resolution|FIXED |--- --- Comment #7 from Thomas Koenig --- (In reply to Dominique d'Humieres from comment #6) > > So, this is fixed. > > Are you sure? I get > > print'()j' > 1 > Warning: Extraneous characters in format at (1) > > with 7.2 and a clean trunk. > > IMO the marker should point to j. Maybe we have different behavior on different systems, depending on locale or who knows what else... ig25@linux-d6cw:/tmp> /usr/bin/gfortran fmt.f90 2>&1 | od -a 000 f m t . f 9 0 : 1 : 8 : nl nl sp p 020 r i n t sp ' ( ) j ' nl sp sp sp sp sp 040 sp sp sp 1 nl W a r n i n g : sp E x 060 t r a n e o u s sp c h a r a c t 100 e r s sp i n sp f o r m a t sp a t 120 sp ( 1 ) nl counts eight spaces before the "1" character. What is the output on your system?
[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58225 --- Comment #6 from Dominique d'Humieres --- > So, this is fixed. Are you sure? I get print'()j' 1 Warning: Extraneous characters in format at (1) with 7.2 and a clean trunk. IMO the marker should point to j.
[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58225 Thomas Koenig changed: What|Removed |Added Status|NEW |RESOLVED Resolution|--- |FIXED --- Comment #5 from Thomas Koenig --- Actually, the current message is: ig25@linux-d6cw:/tmp> cat fmt.f90 print '()j' end ig25@linux-d6cw:/tmp> gfortran fmt.f90 fmt.f90:1:8: print '()j' 1 Warnung: Überschüssige Zeichen im Format bei (1) So, this is fixed.
[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58225 Thomas Koenig changed: What|Removed |Added CC||tkoenig at gcc dot gnu.org --- Comment #4 from Thomas Koenig --- This is another bug where we could just commit an existing solution.
[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line
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 #3 from kargl at gcc dot gnu.org --- Remove myself from cc list
[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58225 Dominique d'Humieres dominiq at lps dot ens.fr changed: What|Removed |Added Status|UNCONFIRMED |NEW Last reconfirmed||2013-09-02 Ever confirmed|0 |1 --- Comment #2 from Dominique d'Humieres dominiq at lps dot ens.fr --- Confirmed.
[Bug fortran/58225] In show_locus at fortran/error.c:391 pointer beyond end of line
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)
