------- Comment #15 from jvdelisle at gcc dot gnu dot org 2005-12-20 05:06
-------
Evidently I do not have authorization to commit to the 4.0 branch. (I tried
twice) Here is a completed and ready testcase. I strongly suggest people move
on to 4.1 if at all possible. If someone else wants to commit this, please do.
! { dg-do run }
! PR25305 Check for no end-of-record error on write after read.
! Derived from example given in PR by Grigory Zagorodnev.
CHARACTER RD*8
CHARACTER WR*8
CHARACTER(1) C1
RD='N 1'
READ (RD(1:2),*) C1
IF (C1.NE.'N') CALL ABORT
WRITE (WR,*) 'passed'
IF (WR.NE.' passed') CALL ABORT()
END
--
jvdelisle at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|jvdelisle at gcc dot gnu dot|unassigned at gcc dot gnu
|org |dot org
Status|ASSIGNED |NEW
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25305
