summaryrefslogtreecommitdiff
path: root/gcc/fortran/error.c
diff options
context:
space:
mode:
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>2012-08-28 14:49:55 +0000
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>2012-08-28 14:49:55 +0000
commita9b0176aa4f2c3a53f73c6530951bfcc12d683a0 (patch)
tree4de72541237446e1fb3f8e79f3eaf90ab1c523e5 /gcc/fortran/error.c
parent021ff494c8f8e5665f019bf2bbb28ad4a3babdde (diff)
2012-08-28 Tobias Burnus <burnus@net-b.de>
PR fortran/54382 * error.c (show_locus): Avoid out of bound access. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190752 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/error.c')
-rw-r--r--gcc/fortran/error.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c
index dde6a0fb5274..64b9357a2155 100644
--- 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++)