re PR fortran/71404 (416.gamess in SPEC CPU 2006 failed to build)

2016-06-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/71404
	* io.c (match_io): For READ, commit in pending symbols in the
	current statement before trying to match an expression so that
	if the match fails and we undo symbols we dont toss good symbols.

From-SVN: r237108

gcc/fortran/ChangeLog

+2016-06-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/71404
+	* io.c (match_io): For READ, commit in pending symbols in the
+	current statement before trying to match an expression so that
+	if the match fails and we undo symbols we dont toss good symbols.
+
 2016-06-05  Andre Vehreschild  <vehre@gcc.gnu.org>
 
 	PR fortran/69659

gcc/fortran/io.c

@@ -3772,6 +3772,9 @@ match_io (io_kind k)
 	    }
 	  if (k == M_READ)
 	    {
+	      /* Commit any pending symbols now so that when we undo
+		 symbols later we wont lose them.  */
+	      gfc_commit_symbols ();
 	      /* Reset current locus to get the initial '(' in an expression.  */
 	      gfc_current_locus = where;
 	      dt->format_expr = NULL;