FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

io.c (match_io_element): Do not set dt if not inquire.

Browse source 
2011-02-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* io.c (match_io_element): Do not set dt if not inquire.

From-SVN: r169961
This commit is contained in:
Jerry DeLisle 2011-02-09 06:02:56 +00:00
parent df2c31eed7
commit 70b9ed884a
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,3 +1,7 @@
2011-02-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* io.c (match_io_element): Do not set dt if not inquire.
2011-02-08 Janus Weil <janus@gcc.gnu.org>
PR fortran/45290

3
gcc/fortran/io.c
View file

@ -3091,7 +3091,8 @@ match_io_element (io_kind k, gfc_code **cpp)
cp = gfc_get_code ();
cp->op = EXEC_TRANSFER;
cp->expr1 = expr;
cp->ext.dt = current_dt;
if (k != M_INQUIRE)
cp->ext.dt = current_dt;
*cpp = cp;
return MATCH_YES;