diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2016-07-04 19:14:54 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2016-07-04 19:14:54 +0000 |
| commit | c20f6223a41539918368677b4a79ad6c1ae674bb (patch) | |
| tree | c202f4a8340895897d03c80249167115c4475359 /gcc/fortran/simplify.c | |
| parent | 2a5537c3e20ffae1e35923a063d42a3f21e47727 (diff) | |
| download | gcc-c20f6223a41539918368677b4a79ad6c1ae674bb.zip gcc-c20f6223a41539918368677b4a79ad6c1ae674bb.tar.gz gcc-c20f6223a41539918368677b4a79ad6c1ae674bb.tar.bz2 | |
re PR fortran/35849 ("wrong" line shown in error message for parameter)
2016-07-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Steven G. Kargl <kargl@gcc.gnu.org>
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 <kargl@gcc.gnu.org>
From-SVN: r237993
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 6 |
1 files changed, 4 insertions, 2 deletions
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; } |