re PR fortran/21881 (ICE instead of error for large arrays in derived types)
PR fortran/21881 * trans-types.c (gfc_get_dtype): Issue a fatal error instead of an internal error. From-SVN: r181192
This commit is contained in:
parent
9b858c880b
commit
f354bf1d8c
@ -1,3 +1,9 @@
|
||||
2011-11-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
||||
|
||||
PR fortran/21881
|
||||
* trans-types.c (gfc_get_dtype): Issue a fatal error instead of
|
||||
an internal error.
|
||||
|
||||
2011-11-08 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
||||
|
||||
PR fortran/50404
|
||||
|
@ -1376,7 +1376,7 @@ gfc_get_dtype (tree type)
|
||||
if (size && INTEGER_CST_P (size))
|
||||
{
|
||||
if (tree_int_cst_lt (gfc_max_array_element_size, size))
|
||||
internal_error ("Array element size too big");
|
||||
gfc_fatal_error ("Array element size too big at %C");
|
||||
|
||||
i += TREE_INT_CST_LOW (size) << GFC_DTYPE_SIZE_SHIFT;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user