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:
Francois-Xavier Coudert 2011-11-09 06:57:10 +00:00 committed by François-Xavier Coudert
parent 9b858c880b
commit f354bf1d8c
2 changed files with 7 additions and 1 deletions

View File

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

View File

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