2008-09-22 Jerry DeLisle <jvdelisle@gcc.gnu.org

[pf3gnuchains/gcc-fork.git] / libgfortran / io / file_pos.c

diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c
index 89c6736..6dafbe5 100644 (file)
--- a/libgfortran/io/file_pos.c
+++ b/libgfortran/io/file_pos.c
@@ -300,7 +300,7 @@ st_endfile (st_parameter_filepos *fpp)
        {
          st_parameter_dt dtp;
          dtp.common = fpp->common;
        {
          st_parameter_dt dtp;
          dtp.common = fpp->common;

-         memset (&dtp.u.p, 0, sizeof (dtp.u.p));
+         memset (&dtp.u.p.transfer, 0, sizeof (dtp.u.q));

          dtp.u.p.current_unit = u;
          next_record (&dtp, 1);
        }
          dtp.u.p.current_unit = u;
          next_record (&dtp, 1);
        }