From fae3018dcda41a9b889561be7f3fbc2a0f62ccb1 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 12 Jul 2014 21:05:52 +0200 Subject: re PR fortran/61628 ([MinGW)Write of medium sized or larger matrix fails without error message.) 2014-07-12 Tobias Burnus PR fortran/61628 * trans-types.c (gfc_init_types): Fix data-type bug with gfc_max_array_element_size. From-SVN: r212485 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-types.c | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) (limited to 'gcc') 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 + PR fortran/61628 + * trans-types.c (gfc_init_types): Fix data-type bug + with gfc_max_array_element_size. + +2014-07-12 Tobias Burnus + * 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); -- cgit v1.1