From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Wed, 10 Oct 2007 13:38:38 +0000 (+0000)
Subject: re PR fortran/33636 (Rejects valid use of vector subscript in derived type parameter)
X-Git-Tag: releases/gcc-4.3.0~2119
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=28ec36ea31db0ed21b4e076fb82f45d15feabfd5;p=thirdparty%2Fgcc.git

re PR fortran/33636 (Rejects valid use of vector subscript in derived type parameter)

	PR fortran/33636
	* expr.c (find_array_section): Check for constructor constantness.

From-SVN: r129208
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 85cb8194db21..3b36e3fbd67f 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	PR fortran/33636
+	* expr.c (find_array_section): Check for constructor constantness.
+
 2007-10-08  Tobias Schlüter  <tobi@gcc.gnu.org>
 
 	PR fortran/33689
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
index 151b465ae9f3..16dc2b1c66e9 100644
--- a/gcc/fortran/expr.c
+++ b/gcc/fortran/expr.c
@@ -1165,7 +1165,7 @@ find_array_section (gfc_expr *expr, gfc_ref *ref)
 	{
 	  gcc_assert (begin);
 
-	  if (begin->expr_type != EXPR_ARRAY)
+	  if (begin->expr_type != EXPR_ARRAY || !gfc_is_constant_expr (begin))
 	    {
 	      t = FAILURE;
 	      goto cleanup;