procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/61628 ([MinGW)Write of medium sized or larger matrix fails without error message.)

Browse source 
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
This commit is contained in:
Tobias Burnus 2014-07-12 21:05:52 +02:00 • committed by Tobias Burnus
parent 42a8246dbd
commit fae3018dcd
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
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.

4
gcc/fortran/trans-types.c
View file

@ -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);