diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2011-11-09 06:57:10 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2011-11-09 06:57:10 +0000 |
| commit | f354bf1d8c08e76d572def991c7b658ac9bc15fb (patch) | |
| tree | cd8eef8bfdaa8581a561e0ac65a765bf59c73c5b | |
| parent | 9b858c880ba4ece0cc1842a7aa397783b8b7de06 (diff) | |
| download | gcc-f354bf1d8c08e76d572def991c7b658ac9bc15fb.zip gcc-f354bf1d8c08e76d572def991c7b658ac9bc15fb.tar.gz gcc-f354bf1d8c08e76d572def991c7b658ac9bc15fb.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0d1d7b6..96944e2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index cb5f30e..ce607d8 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -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; } |