[gfortran] Patch for PR 14762 - "/" edit descriptor

[Bud Davis]

This fixes NIST F77 test FM104.FOR.

We were not skipping records with the '/' edit descriptor.

no new testsuite regressions with this patch, tested i686 / linux.




--bud


2004-04-02  Bud Davis  <bdavis9659@comcast,net>
 
        PR 14762
        * io/transfer.c (next_record_r) : Skip to next record.
 



slash_edit.f90

! pr 14762 - '/' not working in format
       INTEGER N(5)
       DATA N/1,2,3,4,5/
       OPEN(UNIT=7)
 100   FORMAT(I4)
       WRITE(7,100)N
       CLOSE(7)
       OPEN(7)
 200   FORMAT(I4,///I4)
       READ(7,200)I,J
       CLOSE(7)
       IF (I.NE.1) CALL ABORT
       IF (J.NE.4) CALL ABORT
       END




Index: gcc/libgfortran/io/transfer.c
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/io/Attic/transfer.c,v
retrieving revision 1.1.2.10
diff -c -3 -p -r1.1.2.10 transfer.c
*** gcc/libgfortran/io/transfer.c       1 Apr 2004 01:13:32 -0000       1.1.2.10--- gcc/libgfortran/io/transfer.c       2 Apr 2004 02:48:00 -0000
*************** next_record_r (int done)
*** 1158,1164 ****
   
      case FORMATTED_SEQUENTIAL:
        length = 1;
!       if ((!done) || (sf_seen_eor && done))
           break;
   
        do
--- 1158,1164 ----
   
      case FORMATTED_SEQUENTIAL:
        length = 1;
!       if (sf_seen_eor && done)
           break;
   
        do