From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Thu, 19 Aug 2010 02:35:45 +0000 (+0000)
Subject: re PR fortran/41859 (ICE on invalid expression involving DT with pointer components... 
X-Git-Tag: releases/gcc-4.6.0~4942
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=771c5727a06b8d64ce037f592737108ce5fd93e9;p=thirdparty%2Fgcc.git

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index cfc71c19991c..24e20843acbe 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index f770f601115a..63d33ce726a0 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -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;