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

gcc/fortran/ChangeLog

 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
 	* decl.c (match_data_constant): Add missing gfc_free_expr.
 	(top_val_list): Remove always-true condition.

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++)