From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Wed, 9 Nov 2011 06:57:10 +0000 (+0000)
Subject: re PR fortran/21881 (ICE instead of error for large arrays in derived types)
X-Git-Tag: releases/gcc-4.7.0~2329
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f354bf1d8c08e76d572def991c7b658ac9bc15fb;p=thirdparty%2Fgcc.git

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0d1d7b6afc7c..96944e26ab2c 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 cb5f30e28e07..ce607d8dbfda 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;
     }