2008-11-09 Thomas Schwinge <tschwinge@gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / fortran / trans-io.c

diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index fdc517a..af46ea2 100644 (file)
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -1641,7 +1641,7 @@ build_dt (tree function, gfc_code * code)
   tree tmp, var;
   gfc_expr *nmlname;
   gfc_namelist *nml;
-  unsigned int mask = IOPARM_dt_f2003;
+  unsigned int mask = 0;
 
   gfc_start_block (&block);
   gfc_init_block (&post_block);