[Bug fortran/31207] New: wrong code generated with gfortran

[Bug fortran/31207] New: wrong code generated with gfortran

[jv244 at cam dot ac dot uk]

With a recent gfortran, the following compiles, but generates the wrong
results:

character(len=20) :: b
! write something no advance
open(10,FILE="fort.10",POSITION="REWIND")
write(10, '(a,t1,a)',advance='no') 'XXXXXX', 'ABC'
close(10)
! append some data
open(10,FILE="fort.10",POSITION="APPEND")
write(10, '(a)') 'DEF'
close(10)
! check what is in the first record
open(10,FILE="fort.10",POSITION="REWIND")
read(10,'(a)') b
IF (b.NE."ABCXXX") CALL ABORT()
END


-- 
           Summary: wrong code generated with gfortran
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jv244 at cam dot ac dot uk


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

[Bug fortran/31207] advance="no" and tabs

[tkoenig at gcc dot gnu dot org]

------- Comment #1 from tkoenig at gcc dot gnu dot org  2007-03-17 15:36 -------
Confirmed.

Reduced test case:

$ cat rewind-2.f90
program main
  write (*,'(A,T1,A)',advance="no") 'XXXXXX','ABC'
end program main
$ gfortran rewind-2.f90
$ ./a.out
ABC$

Jerry, I'm putting you on the CC list for this one.  I'll
see whether I have time for a look.


-- 

tkoenig at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |jvdelisle at gcc dot gnu dot
                   |                            |org, tkoenig at gcc dot gnu
                   |                            |dot org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2007-03-17 15:36:58
               date|                            |
            Summary|wrong code generated with   |advance="no" and tabs
                   |gfortran                    |


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

[Bug fortran/31207] advance="no" and tabs

[jvdelisle at gcc dot gnu dot org]

------- Comment #2 from jvdelisle at gcc dot gnu dot org  2007-03-17 15:59 -------
I have started looking at this.  I believe its a duplicate of 31199.  In using
advance=no we are failing to retain or use the information about the maximum
position reached during preceding writes.

*** This bug has been marked as a duplicate of 31199 ***


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |DUPLICATE


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

[Bug fortran/31207] advance="no" and tabs

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2007-03-26 01:00 -------
Turns out this is not a duplicate of 31199.  However its is closel related.  I
wll work this one as well.


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|RESOLVED                    |REOPENED
         Resolution|DUPLICATE                   |


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

[Bug fortran/31207] advance="no" and tabs

[jvdelisle at gcc dot gnu dot org]

-- 

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|REOPENED                    |ASSIGNED
   Last reconfirmed|2007-03-17 15:36:58         |2007-03-26 00:00:57
               date|                            |


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

[Bug fortran/31207] advance="no" and tabs

[patchapp at dberlin dot org]

------- Comment #4 from patchapp at dberlin dot org  2007-04-01 05:00 -------
Subject: Bug number PR31207

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/2007-04/msg00001.html


-- 


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

[Bug fortran/31207] advance="no" and tabs

[jvdelisle at gcc dot gnu dot org]

------- Comment #5 from jvdelisle at gcc dot gnu dot org  2007-04-01 16:24 -------
Subject: Bug 31207

Author: jvdelisle
Date: Sun Apr  1 16:23:48 2007
New Revision: 123401

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123401
Log:
2007-04-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/31366
        * io/transfer.c (read_block_direct): Do not generate error when reading
        past EOF on a short record that is less than the RECL= specified.

2007-04-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/31207
        * io/unit.c (close_unit_1): If there are bytes previously written from
        ADVANCE="no", move to the end before closing.

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


-- 


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

[Bug fortran/31207] advance="no" and tabs

[jvdelisle at gcc dot gnu dot org]

------- Comment #6 from jvdelisle at gcc dot gnu dot org  2007-04-01 16:29 -------
Subject: Bug 31207

Author: jvdelisle
Date: Sun Apr  1 16:29:05 2007
New Revision: 123402

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123402
Log:
2007-04-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/31366
        * gfortran.dg/direct_io_6.f90: New test.

2007-04-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/31207
        * gfortran.dg/advance_5.f90: New test.
        * gfortran.dg/advance_6.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/advance_4.f90
    trunk/gcc/testsuite/gfortran.dg/advance_5.f90
    trunk/gcc/testsuite/gfortran.dg/direct_io_6.f90
Modified:
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug fortran/31207] [4.2 only] advance="no" and tabs

[burnus at gcc dot gnu dot org]

------- Comment #7 from burnus at gcc dot gnu dot org  2007-04-13 19:45 -------
What's the plan regarding backporting the patch to GCC 4.2?


-- 


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

[Bug fortran/31207] [4.2 only] advance="no" and tabs

[fxcoudert at gcc dot gnu dot org]

------- Comment #8 from fxcoudert at gcc dot gnu dot org  2007-04-17 19:08 -------
It's not a regression wrt 4.1.2 (just checked) and I don't think it's a
regression wrt g77 either, so it's a no. (Plus, with the morbid state of 4.2,
I'm not sure we need to put effort there).


-- 

fxcoudert at gcc dot gnu dot org changed:

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


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

[Bug fortran/31207] [4.2.1 only] advance="no" and tabs

[jvdelisle at gcc dot gnu dot org]

------- Comment #9 from jvdelisle at gcc dot gnu dot org  2007-04-18 05:25 -------
Its not a regression, but I would like to keep track of this for 4.2.1 along
with 31051


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
  BugsThisDependsOn|                            |31051
             Status|RESOLVED                    |REOPENED
         Resolution|FIXED                       |
            Summary|[4.2 only] advance="no" and |[4.2.1 only] advance="no"
                   |tabs                        |and tabs
   Target Milestone|4.3.0                       |4.2.1


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

[Bug fortran/31207] [4.2.1 only] advance="no" and tabs

[fxcoudert at gcc dot gnu dot org]

------- Comment #10 from fxcoudert at gcc dot gnu dot org  2007-04-18 06:46 -------
Created an attachment (id=13386)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=13386&action=view)
Output of different versions of gfortran


-- 


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

[Bug fortran/31207] [4.2.1 only] advance="no" and tabs

[jvdelisle at gcc dot gnu dot org]

------- Comment #11 from jvdelisle at gcc dot gnu dot org  2007-04-18 14:51 -------
output.tar attachment should go to pr31409


-- 


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

[Bug fortran/31207] [4.2.1 only] advance="no" and tabs

[jvdelisle at gcc dot gnu dot org]

------- Comment #12 from jvdelisle at gcc dot gnu dot org  2007-05-20 23:25 -------
This is not a regression.  Was not supported by g77.  Fixed on 4.3

Closing


-- 

jvdelisle at gcc dot gnu dot org changed:

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


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