From: Tobias Burnus Date: Sat, 12 Jul 2014 19:05:52 +0000 (+0200) Subject: re PR fortran/61628 ([MinGW)Write of medium sized or larger matrix fails without... X-Git-Tag: releases/gcc-5.1.0~6375 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=fae3018dcda41a9b889561be7f3fbc2a0f62ccb1;p=thirdparty%2Fgcc.git 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 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4ec7835ddec1..a443622caa01 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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. diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index e55e2d9c1f5e..ad28c28bee98 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);