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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8ee85c15b9478e3fdf2ac33bb0bbc2f3e75636c6..cebbe3612431e7a9e5d899bb78d74581358b2f38 100644 (file)
--- 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 b8a6a4a307512b492f503e0fbac6534f8b534911..3ce7e816b9a04007f0374393bf29c718133193c7 100644 (file)
--- 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;