[Bug fortran/28339] New: gfortran misses a record from a format statement

[Bug fortran/28339] New: gfortran misses a record from a format statement

[mathewc at nag dot co dot uk]

A straight gfortran applied to the code

      PROGRAM MAIN
C     .. Local Scalars ..
      INTEGER          I
C     .. Local Arrays ..
      CHARACTER*8      REC(3)
C     .. Executable Statements ..
C
      WRITE (REC,FMT=99999)
C
      DO 20 I = 1, 3
         WRITE (*,FMT=*) REC(I)
   20 CONTINUE
C
99999 FORMAT ('12345678',/'Record2',/'Record3')
      END

results in REC(1) containing '12345678', in REC(2) containing 'Record3', and in
REC(3) containing garbage.


-- 
           Summary: gfortran misses a record from a format statement
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: mathewc at nag dot co dot uk


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

[Bug fortran/28339] gfortran misses a record from a format statement

[mathewc at nag dot co dot uk]

------- Comment #1 from mathewc at nag dot co dot uk  2006-07-11 14:10 -------
Apologies, as I should have added 
%gfortran -v
%Using built-in specs.
%Target: x86_64-unknown-linux-gnu
%Configured with: ./configure --enable-languages=c,fortran
%--prefix=/opt/gfortran/irun : (reconfigured) ./configure
%--prefix=/opt/gfortran/irun --enable-languages=c,fortran
%Thread model: posix
%gcc version 4.2.0 20060524 (experimental)


-- 


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

[Bug fortran/28339] gfortran misses a record from a format statement

[jvdelisle at gcc dot gnu dot org]

------- Comment #2 from jvdelisle at gcc dot gnu dot org  2006-07-12 01:53 -------
This is curious.  I can confirm the behavior on my system here.  If the first
record is made one character less, "1234567", it appears to give a clean
result.

I will have to think about this one a little more.  I am in the middle of
another patch, but will get back to this after that.


-- 

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         |2006-07-12 01:53:02
               date|                            |


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

[Bug fortran/28339] gfortran misses a record from a format statement

[steven at gcc dot gnu dot org]

-- 

steven at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |wrong-code
           Priority|P3                          |P1


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

[Bug fortran/28339] gfortran misses a record from a format statement

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2006-07-19 05:32 -------
Well, I have found the problem here, but still need to formulate the solution. 
For internal units, if the bytes left in a record is zero we break out of the
next_record_w function.  Not a good thing.


-- 


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

[Bug fortran/28339] gfortran misses a record from a format statement

[patchapp at dberlin dot org]

------- Comment #4 from patchapp at dberlin dot org  2006-07-20 04:10 -------
Subject: Bug number PR28339

A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is
http://gcc.gnu.org/ml/gcc-patches/2006-07/msg00841.html


-- 


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

[Bug fortran/28339] gfortran misses a record from a format statement

[jvdelisle at gcc dot gnu dot org]

------- Comment #5 from jvdelisle at gcc dot gnu dot org  2006-07-22 03:14 -------
Subject: Bug 28339

Author: jvdelisle
Date: Sat Jul 22 03:14:27 2006
New Revision: 115670

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=115670
Log:
2006-07-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/28339
        * io/transfer.c (next_record_w): Use next_array_record result to set
        END_FILE. (write_block): Test for END_FILE before the next write
occurs.
        * io/unit.c (get_internal_unit): Initialize iunit->endfile for internal
        unit.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/transfer.c
    trunk/libgfortran/io/unit.c


-- 


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

[Bug fortran/28339] gfortran misses a record from a format statement

[jvdelisle at gcc dot gnu dot org]

------- Comment #6 from jvdelisle at gcc dot gnu dot org  2006-07-22 03:18 -------
Subject: Bug 28339

Author: jvdelisle
Date: Sat Jul 22 03:18:33 2006
New Revision: 115671

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=115671
Log:
2006-07-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/28339
        * gfortran.dg/arrayio_8.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/arrayio_8.f90
Modified:
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/28339] gfortran misses a record from a format statement

[jvdelisle at gcc dot gnu dot org]

------- Comment #7 from jvdelisle at gcc dot gnu dot org  2006-07-22 06:05 -------
Fixed on 4.2


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED
   Target Milestone|---                         |4.2.0


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

[Bug fortran/28339] gfortran misses a record from a format statement

[tobias dot burnus at physik dot fu-berlin dot de]

------- Comment #8 from tobias dot burnus at physik dot fu-berlin dot de  2006-07-28 10:16 -------
> Resolution: FIXED
> Fixed on 4.2

What about 4.1.x?


-- 


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

[Bug fortran/28339] gfortran misses a record from a format statement

[jvdelisle at gcc dot gnu dot org]

------- Comment #9 from jvdelisle at gcc dot gnu dot org  2006-07-28 14:56 -------
Lately, unless someone requests, I have not been committing to 4.1 branch. 
However, since you asked, I will gladly do so.  BTW Thanks for the bug reports.


-- 


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

[Bug fortran/28339] gfortran misses a record from a format statement

[jvdelisle at gcc dot gnu dot org]

------- Comment #10 from jvdelisle at gcc dot gnu dot org  2006-07-28 16:47 -------
Subject: Bug 28339

Author: jvdelisle
Date: Fri Jul 28 16:46:57 2006
New Revision: 115798

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

        PR libgfortran/28339
        * io/transfer.c (next_record_w): Use next_array_record result to set
        END_FILE. (write_block): Test for END_FILE before the next write
occurs.
        * io/unit.c (get_internal_unit): Initialize iunit->endfile for internal
        unit.

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


-- 


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

[Bug fortran/28339] gfortran misses a record from a format statement

[jvdelisle at gcc dot gnu dot org]

------- Comment #11 from jvdelisle at gcc dot gnu dot org  2006-07-28 16:49 -------
Subject: Bug 28339

Author: jvdelisle
Date: Fri Jul 28 16:48:58 2006
New Revision: 115799

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

        PR libgfortran/28339
        * gfortran.dg/arrayio_8.f90: New test.

Added:
    branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/arrayio_8.f90
Modified:
    branches/gcc-4_1-branch/gcc/testsuite/ChangeLog


-- 


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