OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Jerry DeLisle 2009-11-26 21:52:52 +00:00
parent 15b83b0f47
commit 5e1a89f009
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
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

1
gcc/fortran/trans-const.c
View File

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