From c20f6223a41539918368677b4a79ad6c1ae674bb Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 4 Jul 2016 19:14:54 +0000 Subject: re PR fortran/35849 ("wrong" line shown in error message for parameter) 2016-07-04 Jerry DeLisle Steven G. Kargl PR fortran/35849 * simplify.c (gfc_simplify_ishftc): Check that absolute value of SHIFT is less than or equal to SIZE. * gfortran.dg: pr35849.f90: New test. Co-Authored-By: Steven G. Kargl From-SVN: r237993 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/simplify.c | 6 ++++-- 2 files changed, 11 insertions(+), 2 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9ecdc82..37481e5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2016-07-04 Jerry DeLisle + Steven G. Kargl + + PR fortran/35849 + * simplify.c (gfc_simplify_ishftc): Check that absolute value of + SHIFT is less than or equal to SIZE. + 2016-07-01 Jakub Jelinek PR fortran/71687 diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index a631010..4c8bb83 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -3280,7 +3280,6 @@ gfc_simplify_ishftc (gfc_expr *e, gfc_expr *s, gfc_expr *sz) return NULL; gfc_extract_int (sz, &ssize); - } else ssize = isize; @@ -3294,7 +3293,10 @@ gfc_simplify_ishftc (gfc_expr *e, gfc_expr *s, gfc_expr *sz) { if (sz == NULL) gfc_error ("Magnitude of second argument of ISHFTC exceeds " - "BIT_SIZE of first argument at %L", &s->where); + "BIT_SIZE of first argument at %C"); + else + gfc_error ("Absolute value of SHIFT shall be less than or equal " + "to SIZE at %C"); return &gfc_bad_expr; } -- cgit v1.1