[Bug fortran/55475] heap-buffer-overflow in fortran/error.c

[burnus at gcc dot gnu.org]

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



Tobias Burnus <burnus at gcc dot gnu.org> changed:



           What    |Removed                     |Added

----------------------------------------------------------------------------

             Status|UNCONFIRMED                 |NEW

   Last reconfirmed|                            |2012-11-26

                 CC|                            |burnus at gcc dot gnu.org

     Ever Confirmed|0                           |1



--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-11-26 
21:59:32 UTC ---

Draft patch:



--- a/gcc/fortran/scanner.c

+++ b/gcc/fortran/scanner.c

@@ -1070,6 +1070,8 @@ restart:

          int maxlen = gfc_option.free_line_length;

+         gfc_char_t *current_nextc = gfc_current_locus.nextc;

+

          gfc_current_locus.lb->truncated = 0;

-         gfc_current_locus.nextc += maxlen;

+         gfc_current_locus.nextc =  gfc_current_locus.lb->line + maxlen;

          gfc_warning_now ("Line truncated at %L", &gfc_current_locus);

-         gfc_current_locus.nextc -= maxlen;

+         gfc_current_locus.nextc = current_nextc;

        }