re PR fortran/54382 (gfortran show_locus: Invalid read of size 4)

2012-08-28  Tobias Burnus  <burnus@net-b.de>

        PR fortran/54382
        * error.c (show_locus): Avoid out of bound access.

From-SVN: r190752

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f9bbf8a167e7b495411692b0fd7969fbd69754fc..3a6a23e8199a9b18a759070e1772d1642ef0cd85 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-28  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/54382
+       * error.c (show_locus): Avoid out of bound access.
+
 2012-08-28  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/54384

diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c
index dde6a0fb52743202bd573ed6e9f04392b0d0396c..64b9357a21552f8756c0f43e2028ac7cb4f80d81 100644 (file)
--- a/gcc/fortran/error.c
+++ b/gcc/fortran/error.c
@@ -384,6 +384,7 @@ show_locus (locus *loc, int c1, int c2)
 
   c1 -= offset;
   c2 -= offset;
+  cmax -= offset;
 
   p = &(lb->line[offset]);
   for (i = 0; i <= cmax; i++)