OSDN Git Service

PR libfortran/17709
authorpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 6 Oct 2004 18:27:58 +0000 (18:27 +0000)
committerpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 6 Oct 2004 18:27:58 +0000 (18:27 +0000)
* io/transfer.c (data_transfer_init): Reset sf_seen_eor.
testsuite/
* gfortran.dg/empty_format_1.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88615 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/empty_format_1.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/io/transfer.c

index a244c2a..0ae64e1 100644 (file)
@@ -1,3 +1,8 @@
+2004-10-06  Paul Brook  <paul@codesourcery.com>
+
+       PR libfortran/17709
+       * gfortran.dg/empty_format_1.f90: New test.
+
 2004-10-06  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
        PR fortran/17568
diff --git a/gcc/testsuite/gfortran.dg/empty_format_1.f90 b/gcc/testsuite/gfortran.dg/empty_format_1.f90
new file mode 100644 (file)
index 0000000..450df6d
--- /dev/null
@@ -0,0 +1,21 @@
+! { dg-do run }
+! PR 17709
+! We weren't resetting the internal EOR flag correctly, so the second read
+! wasn't advancing to the next line.
+program main
+  integer io_unit
+  character*20 str
+  io_unit = 10
+  open (unit=io_unit,status='scratch',form='formatted')
+  write (io_unit, '(A)'), "Line1"
+  write (io_unit, '(A)'), "Line2"
+  write (io_unit, '(A)'), "Line3"
+  rewind (io_unit)
+  read (io_unit,'(A)') str
+  if (str .ne. "Line1") call abort
+  read (io_unit,'()')
+  read (io_unit,'(A)') str
+  if (str .ne. "Line3") call abort
+  close(unit=io_unit)
+end
+
index 2560d69..82b0577 100644 (file)
@@ -1,3 +1,8 @@
+2004-10-06  Paul Brook  <paul@codesourcery.com>
+
+       PR libfortran/17709
+       * io/transfer.c (data_transfer_init): Reset sf_seen_eor.
+
 2004-10-04  Andrew Pinski  <pinskia@physics.uc.edu>
 
        * intrinsics/mvbits.c: Commit the file.
index ca92072..70a41fc 100644 (file)
@@ -1074,6 +1074,7 @@ data_transfer_init (int read_flag)
   g.seen_dollar = 0;
   g.first_item = 1;
   g.item_count = 0;
+  sf_seen_eor = 0;
 
   pre_position ();