diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-07-12 21:05:52 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-07-12 21:05:52 +0200 |
| commit | fae3018dcda41a9b889561be7f3fbc2a0f62ccb1 (patch) | |
| tree | 372e02f1877bff5aa96d50e77056facaebcfb4d4 | |
| parent | 42a8246dbdb963921fe5426ba34646f6399a412d (diff) | |
| download | gcc-fae3018dcda41a9b889561be7f3fbc2a0f62ccb1.zip gcc-fae3018dcda41a9b889561be7f3fbc2a0f62ccb1.tar.gz gcc-fae3018dcda41a9b889561be7f3fbc2a0f62ccb1.tar.bz2 | |
re PR fortran/61628 ([MinGW)Write of medium sized or larger matrix fails without error message.)
2014-07-12 Tobias Burnus <burnus@net-b.de>
PR fortran/61628
* trans-types.c (gfc_init_types): Fix data-type bug
with gfc_max_array_element_size.
From-SVN: r212485
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.c | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4ec7835..a443622 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2014-07-12 Tobias Burnus <burnus@net-b.de> + PR fortran/61628 + * trans-types.c (gfc_init_types): Fix data-type bug + with gfc_max_array_element_size. + +2014-07-12 Tobias Burnus <burnus@net-b.de> + * libgfortran.h (libcaf_atomic_codes): Add. * trans-decl.c (gfor_fndecl_caf_atomic_def, gfor_fndecl_caf_atomic_ref, gfor_fndecl_caf_atomic_cas, diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index e55e2d9..ad28c28 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -955,9 +955,9 @@ gfc_init_types (void) n = TYPE_PRECISION (gfc_array_index_type) - GFC_DTYPE_SIZE_SHIFT; gfc_max_array_element_size - = wide_int_to_tree (long_unsigned_type_node, + = wide_int_to_tree (size_type_node, wi::mask (n, UNSIGNED, - TYPE_PRECISION (long_unsigned_type_node))); + TYPE_PRECISION (size_type_node))); boolean_type_node = gfc_get_logical_type (gfc_default_logical_kind); boolean_true_node = build_int_cst (boolean_type_node, 1); |