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
This commit is contained in:
Francois-Xavier Coudert 2007-10-10 13:38:38 +00:00 committed by François-Xavier Coudert
parent e7c61201aa
commit 28ec36ea31
2 changed files with 6 additions and 1 deletions

View File

@ -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

View File

@ -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;