X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libgfortran%2Fio%2Ffile_pos.c;h=6dafbe59028643a6887b23925da0440f03084631;hp=89c67365429ab2fc8036a140841fdd7d6bccac1d;hb=bc45c9ffdd1813a3cecb164e96148634c5142a52;hpb=9d3674bbd65736cd16fb0d997b173365e9b17152

diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c
index 89c67365429..6dafbe59028 100644
--- 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;
-	  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);
 	}