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

re PR fortran/41859 (ICE on invalid expression involving DT with pointer components in I/O) 

2010-08-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/41859
	* resolve.c (resolve_transfer): Traverse operands and set expression
	to be checked to a non EXPR_OP type.

From-SVN: r163363
This commit is contained in:
Jerry DeLisle 2010-08-19 02:35:45 +00:00
parent b426fff1a3
commit 771c5727a0
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-08-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/41859
* resolve.c (resolve_transfer): Traverse operands and set expression
to be checked to a non EXPR_OP type.
2010-08-19 Janus Weil <janus@gcc.gnu.org>
PR fortran/45290

7
gcc/fortran/resolve.c
View File

@ -7747,7 +7747,12 @@ resolve_transfer (gfc_code *code)
exp = code->expr1;
if (exp->expr_type != EXPR_VARIABLE && exp->expr_type != EXPR_FUNCTION)
while (exp != NULL && exp->expr_type == EXPR_OP
&& exp->value.op.op == INTRINSIC_PARENTHESES)
exp = exp->value.op.op1;
if (exp == NULL || (exp->expr_type != EXPR_VARIABLE
&& exp->expr_type != EXPR_FUNCTION))
return;
sym = exp->symtree->n.sym;