From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 4 May 2007 11:10:06 +0000 (+0000)
Subject: re PR fortran/31251 (Non-integer character length leads to segfault)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=26fbc975c83a59ba27e067207c21f083b42b0aba;p=gcc.git

re PR fortran/31251 (Non-integer character length leads to segfault)

	PR fortran/31251
	* simplify.c (gfc_simplify_len): Only simplify integer lengths.

From-SVN: r124415
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ee991869272..71ec57ee171 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/31251
+	* simplify.c (gfc_simplify_len): Only simplify integer lengths.
+
 2007-05-04  Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
 
 	PR fortran/31781
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 3065c028705..9df2e812c1d 100644
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -2136,14 +2136,15 @@ gfc_simplify_len (gfc_expr *e)
     }
 
   if (e->ts.cl != NULL && e->ts.cl->length != NULL
-      && e->ts.cl->length->expr_type == EXPR_CONSTANT)
+      && e->ts.cl->length->expr_type == EXPR_CONSTANT
+      && e->ts.cl->length->ts.type == BT_INTEGER)
     {
       result = gfc_constant_result (BT_INTEGER, gfc_default_integer_kind,
 				    &e->where);
       mpz_set (result->value.integer, e->ts.cl->length->value.integer);
       return range_check (result, "LEN");
     }
-  
+
   return NULL;
 }