This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Is this a regression for access="stream",form="unformatted"?
- From: dominiq at lps dot ens dot fr (Dominique Dhumieres)
- To: fortran at gcc dot gnu dot org
- Date: Tue, 06 Nov 2007 00:01:26 +0100
- Subject: Is this a regression for access="stream",form="unformatted"?
The following code:
! { dg-do run }
! PR25828 Stream IO test 7, Array writes and reads.
! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
program streamtest
implicit none
character(1) :: lf = char(10)
character(1) :: tchar
integer :: i,j,k
real(kind=4), dimension(100,100) :: anarray
open(10, file="teststream", access="stream", form="unformatted")
anarray = 3.14159
write(10) anarray
write(10, pos=1) ! This is a way to position an unformatted file
anarray = 0.0
read(10) anarray
anarray = abs(anarray - 3.14159)
if (any(anarray.gt.0.00001)) call abort()
close(10,status="delete")
end program streamtest
used to pass. At revision 129901, it now fails with:
At line 15 of file streamtest_7.f90 (unit = 10, file = 'teststream')
Fortran runtime error: End of file
Note that gfortran.dg/streamio_7.f90 passes and differs only by:
write(10) anarray
anarray = 0.0
read(10, pos=1) anarray
Is "write(10, pos=1)" really a way to position an unformatted file?
And if yes, why is it now failing?
TIA
Dominique