diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2011-02-09 06:02:56 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2011-02-09 06:02:56 +0000 |
| commit | 70b9ed884a3364c0265dab0275146b98a8efa075 (patch) | |
| tree | 64339a2ce41f9f6b32c46ed3b32ed42a12a24a1e /gcc/fortran | |
| parent | df2c31eed7e2e369c4dd9552bdcf9865d8a6d298 (diff) | |
| download | gcc-70b9ed884a3364c0265dab0275146b98a8efa075.zip gcc-70b9ed884a3364c0265dab0275146b98a8efa075.tar.gz gcc-70b9ed884a3364c0265dab0275146b98a8efa075.tar.bz2 | |
io.c (match_io_element): Do not set dt if not inquire.
2011-02-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* io.c (match_io_element): Do not set dt if not inquire.
From-SVN: r169961
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8ee85c1..cebbe36 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index b8a6a4a..3ce7e81 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -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; |