diff options
| author | Brooks Moses <brooks.moses@codesourcery.com> | 2007-01-10 07:42:56 +0000 |
|---|---|---|
| committer | Brooks Moses <brooks@gcc.gnu.org> | 2007-01-09 23:42:56 -0800 |
| commit | 3775c3dc9ac88dc883fd34abd786fc7f1ed09796 (patch) | |
| tree | 56b8f1fc14ea229e0b7e85d287822e7c54555de4 /gcc | |
| parent | f1dcb9bf3b6a96a117836e6787fa4d49c87ad995 (diff) | |
| download | gcc-3775c3dc9ac88dc883fd34abd786fc7f1ed09796.zip gcc-3775c3dc9ac88dc883fd34abd786fc7f1ed09796.tar.gz gcc-3775c3dc9ac88dc883fd34abd786fc7f1ed09796.tar.bz2 | |
simplify.c (gfc_simplify_ibclr): Fix POS comparison.
* simplify.c (gfc_simplify_ibclr): Fix POS comparison.
(gfc_simplify_ibset): Same.
From-SVN: r120636
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/simplify.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8cf0bc3..7634dce 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2007-01-09 Brooks Moses <brooks.moses@codesourcery.com> + * simplify.c (gfc_simplify_ibclr): Fix POS comparison. + (gfc_simplify_ibset): Same. + +2007-01-09 Brooks Moses <brooks.moses@codesourcery.com> + PR 30381 PR 30420 * simplify.c (convert_mpz_to_unsigned): New function. diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 82005f1..d4cdc9e 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -1280,7 +1280,7 @@ gfc_simplify_ibclr (gfc_expr * x, gfc_expr * y) k = gfc_validate_kind (x->ts.type, x->ts.kind, false); - if (pos > gfc_integer_kinds[k].bit_size) + if (pos >= gfc_integer_kinds[k].bit_size) { gfc_error ("Second argument of IBCLR exceeds bit size at %L", &y->where); @@ -1386,7 +1386,7 @@ gfc_simplify_ibset (gfc_expr * x, gfc_expr * y) k = gfc_validate_kind (x->ts.type, x->ts.kind, false); - if (pos > gfc_integer_kinds[k].bit_size) + if (pos >= gfc_integer_kinds[k].bit_size) { gfc_error ("Second argument of IBSET exceeds bit size at %L", &y->where); |