re PR fortran/41807 (data statement with nested type constructors)

2009-11-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/41807
	* trans-const.c (gfc_conv_const): Set se->expr to a constant on error.

From-SVN: r154690

gcc/fortran/ChangeLog

 2009-11-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
+	PR fortran/41807
+	* trans-const.c (gfc_conv_const): Set se->expr to a constant on error.
+
+2009-11-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
 	PR fortran/41278
 	* trans-array.c (gfc_conv_array_transpose): Delete unnecessary assert.
 

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