From 8d5409aae0426487e8ecf4e838355dbbeb644e35 Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Wed, 9 Nov 2011 06:57:10 +0000 Subject: [PATCH] PR fortran/21881 * trans-types.c (gfc_get_dtype): Issue a fatal error instead of an internal error. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181192 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-types.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0d1d7b6afc7..96944e26ab2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-11-09 Francois-Xavier Coudert + + PR fortran/21881 + * trans-types.c (gfc_get_dtype): Issue a fatal error instead of + an internal error. + 2011-11-08 Francois-Xavier Coudert PR fortran/50404 diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index cb5f30e28e0..ce607d8dbfd 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; } -- 2.11.4.GIT