This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
bug fc109
- From: Walt Brainerd <walt at fortran dot com>
- To: Gfortran <fortran at gcc dot gnu dot org>
- Date: Sun, 10 Apr 2005 17:09:06 -0700
- Subject: bug fc109
--
Walt Brainerd +1-877-355-6640 (voice & fax)
The Fortran Company +1-520-760-1397 (outside USA)
6025 N. Wilmot Road walt@fortran.com
Tucson, AZ 85750 USA http://www.fortran.com
program fc109
! Submitted by Walt Brainerd, The Fortran Company
! GNU Fortran 95 (GCC 4.1.0 20050322 (experimental))
! Windows XP
! Output is -1 9
! Output should be 0 0
OPEN(9,FILE='hctmp',STATUS='REPLACE')
WRITE(9,100,ADVANCE='NO')
CLOSE(9)
OPEN(9,FILE='hctmp',STATUS='OLD',POSITION='REWIND')
READ(9,100,ADVANCE='NO',iostat=ios)
print*,ios
READ(9,100,ADVANCE='NO',iostat=ios)
print*,ios
100 FORMAT(A)
END program fc109