From 5e1a89f009a30cd501dd5dfb4e9ab99e0ca3052b Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Thu, 26 Nov 2009 21:52:52 +0000 Subject: [PATCH] re PR fortran/41807 (data statement with nested type constructors) 2009-11-26 Jerry DeLisle PR fortran/41807 * trans-const.c (gfc_conv_const): Set se->expr to a constant on error. From-SVN: r154690 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-const.c | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a29a34c7d57..e2eadb272cd 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2009-11-26 Jerry DeLisle + + PR fortran/41807 + * trans-const.c (gfc_conv_const): Set se->expr to a constant on error. + 2009-11-26 Jerry DeLisle PR fortran/41278 diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c index e2cd40bc954..74520889d7e 100644 --- a/gcc/fortran/trans-const.c +++ b/gcc/fortran/trans-const.c @@ -356,6 +356,7 @@ gfc_conv_constant (gfc_se * se, gfc_expr * expr) if (expr->expr_type != EXPR_CONSTANT) { gfc_error ("non-constant initialization expression at %L", &expr->where); + se->expr = gfc_conv_constant_to_tree (gfc_int_expr (0)); return; } -- 2.30.2