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

gcc/fortran/ChangeLog

+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 Schlter  <tobi@gcc.gnu.org>
 
 	PR fortran/33689

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;