diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-07-25 21:09:56 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-07-25 21:09:56 +0200 |
| commit | a634323ae02c99a5a7e2b7c9674109ed2af6c969 (patch) | |
| tree | 73b2d7327321db66dbd5ae0f98398576f7b65ee3 /gcc/fortran/simplify.c | |
| parent | a4b0388b2453efd5d9cb4caf38608e7be4d8e007 (diff) | |
| download | gcc-a634323ae02c99a5a7e2b7c9674109ed2af6c969.zip gcc-a634323ae02c99a5a7e2b7c9674109ed2af6c969.tar.gz gcc-a634323ae02c99a5a7e2b7c9674109ed2af6c969.tar.bz2 | |
simplify.c (gfc_simplify_storage_size): Use proper integer kind for the returned value.
2014-07-25 Tobias Burnus <burnus@net-b.de>
* simplify.c (gfc_simplify_storage_size): Use proper
integer kind for the returned value.
2014-07-25 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/storage_size_5.f90: New.
From-SVN: r213060
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 60d8593..d4a67ad 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -5841,11 +5841,9 @@ gfc_simplify_storage_size (gfc_expr *x, if (k == -1) return &gfc_bad_expr; - result = gfc_get_constant_expr (BT_INTEGER, gfc_index_integer_kind, - &x->where); + result = gfc_get_constant_expr (BT_INTEGER, k, &x->where); mpz_set_si (result->value.integer, gfc_element_size (x)); - mpz_mul_ui (result->value.integer, result->value.integer, BITS_PER_UNIT); return range_check (result, "STORAGE_SIZE"); |