From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Thu, 24 May 2007 05:03:51 +0000 (+0000)
Subject: re PR fortran/31716 (segfault with real array bounds)
X-Git-Tag: releases/gcc-4.3.0~4944
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1505f3b58e776fb2865ae9b41d492f3d6b5504a7;p=thirdparty%2Fgcc.git

re PR fortran/31716 (segfault with real array bounds)

2007-05-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/31716
	* array.c (spec_dimen_size): Test for correct BT_INTEGER type.

From-SVN: r125013
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a53691c95059..f0275efa9940 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/31716
+	* array.c (spec_dimen_size): Test for correct BT_INTEGER type. 
+
 2007-05-23  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
 	PR fortran/32046
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c
index 9359624efec4..2a88cc8ad56f 100644
--- a/gcc/fortran/array.c
+++ b/gcc/fortran/array.c
@@ -1725,7 +1725,9 @@ spec_dimen_size (gfc_array_spec *as, int dimen, mpz_t *result)
 
   if (as->type != AS_EXPLICIT
       || as->lower[dimen]->expr_type != EXPR_CONSTANT
-      || as->upper[dimen]->expr_type != EXPR_CONSTANT)
+      || as->upper[dimen]->expr_type != EXPR_CONSTANT
+      || as->lower[dimen]->ts.type != BT_INTEGER
+      || as->upper[dimen]->ts.type != BT_INTEGER)
     return FAILURE;
 
   mpz_init (*result);