From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sat, 17 Dec 2016 17:03:49 +0000 (+0000)
Subject: re PR fortran/78239 (ICE in char_len_param_value, at fortran/decl.c:926, with -fimpli... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=63ac625170fb144df1c58c0475a5ac8c60005ea1;p=gcc.git

re PR fortran/78239 (ICE in char_len_param_value, at fortran/decl.c:926, with -fimplicit-none)

2016-12-17  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/78239
	* decl.c (char_len_param_value):  Actually commit
	previous change.

From-SVN: r243776
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index cf406eba3c8..7bb3bbc87da 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,7 +1,14 @@
 2016-12-17  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR fortran/78239
-	* decl.c(char_len_param_value): Also check for -fimplicit-none
+	* decl.c (char_len_param_value):  Actually commit
+	previous change.
+
+
+2016-12-17  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/78239
+	* decl.c( char_len_param_value): Also check for -fimplicit-none
 	when determining if implicit none is in force.
 
 2016-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index c8adedb933e..aca32186229 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -922,7 +922,8 @@ char_len_param_value (gfc_expr **expr, bool *deferred)
 
       if (!t && e->ts.type == BT_UNKNOWN
 	  && e->symtree->n.sym->attr.untyped == 1
-	  && (e->symtree->n.sym->ns->seen_implicit_none == 1
+	  && (flag_implicit_none
+	      || e->symtree->n.sym->ns->seen_implicit_none == 1
 	      || e->symtree->n.sym->ns->parent->seen_implicit_none == 1))
 	{
 	  gfc_free_expr (e);