[Bug libfortran/25550] New: file data corrupted after reading end of file

[Bug libfortran/25550] New: file data corrupted after reading end of file

[dir at lanl dot gov]

After the end of file is read, the file data is corrupted -

[dranta:~/tests/gfortran-D] dir% gfortran -o write17 write17.f
[dranta:~/tests/gfortran-D] dir% write17
   538976288
Abort
[dranta:~/tests/gfortran-D] dir% cat write17.f
      integer data
      data=-1
      open(unit=11,status='scratch',form='unformatted')
       write(11)data
       read(11,end=        1000 )data
 1000  continue
       rewind 11
       read(11,end=        1001 )data
 1001  continue
       if(data.ne.-1)then
          write(6,*)data
          call abort
       endif
       close(11)
       end


-- 
           Summary: file data corrupted after reading end of file
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
  GCC host triplet: powerpc-apple-darwin8.3.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25550

[Bug libfortran/25550] file data corrupted after reading end of file

[jvdelisle at gcc dot gnu dot org]

------- Comment #1 from jvdelisle at gcc dot gnu dot org  2005-12-27 04:00 -------
I have a fix for this.  Will submit shortly.


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |jvdelisle at gcc dot gnu dot
                   |dot org                     |org
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-12-27 04:00:30
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25550

[Bug libfortran/25550] file data corrupted after reading end of file

[jvdelisle at gcc dot gnu dot org]

------- Comment #2 from jvdelisle at gcc dot gnu dot org  2005-12-28 07:20 -------
Subject: Bug 25550

Author: jvdelisle
Date: Wed Dec 28 07:20:19 2005
New Revision: 109101

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=109101
Log:
2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/25550
        * io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
        next_record_r.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/file_pos.c


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25550

[Bug libfortran/25550] file data corrupted after reading end of file

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2005-12-28 07:21 -------
Subject: Bug 25550

Author: jvdelisle
Date: Wed Dec 28 07:21:20 2005
New Revision: 109102

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=109102
Log:
2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/25550
        * gfortran.dg/endfile.f: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/endfile.f
Modified:
    trunk/gcc/testsuite/ChangeLog


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25550

[Bug libfortran/25550] file data corrupted after reading end of file

[jvdelisle at gcc dot gnu dot org]

------- Comment #4 from jvdelisle at gcc dot gnu dot org  2006-01-01 04:16 -------
Subject: Bug 25550

Author: jvdelisle
Date: Sun Jan  1 04:16:39 2006
New Revision: 109214

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=109214
Log:
2005-12-31  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/25550
        * io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
        next_record_r.

Modified:
    branches/gcc-4_1-branch/libgfortran/ChangeLog
    branches/gcc-4_1-branch/libgfortran/io/file_pos.c


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25550

[Bug libfortran/25550] file data corrupted after reading end of file

[jvdelisle at gcc dot gnu dot org]

------- Comment #5 from jvdelisle at gcc dot gnu dot org  2006-01-01 04:20 -------
Subject: Bug 25550

Author: jvdelisle
Date: Sun Jan  1 04:20:41 2006
New Revision: 109215

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=109215
Log:
2005-12-31  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/25550
        * gfortran.dg/endfile.f: New test.

Added:
    branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/endfile.f
Modified:
    branches/gcc-4_1-branch/gcc/testsuite/ChangeLog


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25550

[Bug libfortran/25550] file data corrupted after reading end of file

[jvdelisle at gcc dot gnu dot org]

------- Comment #6 from jvdelisle at gcc dot gnu dot org  2006-01-01 05:19 -------
Fixed on 4.1 and 4.2


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25550

[Bug libfortran/25550] file data corrupted after reading end of file

[pinskia at gcc dot gnu dot org]

-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |4.1.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25550