topic Hi Justin, Andrew, in Intel® Fortran Compiler

unformatted read/writes

Justin_v_ — Wed, 05 Jul 2017 17:52:23 GMT

My application has recently stopped being able to read unformatted files that are greater than 2.1GB in size. Specifically, the read command of the following subroutine fails (iostat=-1) if jj = 2900 (file size 2.15GB), but works (iostat=0) if jj=2800 (file size 2.08GB).

ii = 95000
jj = 4000
allocate ( store_huge(ii, jj), STAT = istat )
store_huge = 0.0

open( newunit = file_id, file = outputfilename, form = 'unformatted', action='write', iostat = istat )
write(file_id, IOSTAT=istat) store_huge
close(file_id)

store_huge = 1.0
open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', iostat = istat)
read(file_id, IOSTAT=istat) store_huge
close(file_id)

deallocate( store_huge )

This problem only appeared recently, and may be due to a recent Windows update (which we can no longer control, and which have been driving me crazy). I have Windows 10 (including the most recent automated updates), am using VS2017 (which may be the problem, though I have been using this for a couple of months without issue), and Visual Fortran Compiler 17.0.4.210.

I have recompiled the

Justin_v_ — Wed, 05 Jul 2017 18:38:54 GMT

I have recompiled the application with (microsoft) VS2015 (rather than VS2017), and the same problem appears. This suggests that it is something to do with Visual Fortran Compiler 17.0.4.210 and/or Windows 10 (version 1703, OS Build 15063.413).

Using the access='stream'

Justin_v_ — Thu, 06 Jul 2017 08:15:06 GMT

Using the access='stream' option seems to resolve this issue, even if only sequential access (the default) is used. Something looks like it has gone wrong with the compiler (probably due to a change in Windows), which I hope can be fixed soon...

The -1 is end of file on read

andrew_4619 — Thu, 06 Jul 2017 08:31:42 GMT

The -1 is end of file on read. But is the problem the read or is it the write that failed? Did you check the end of the file that was written to see if it is all there?

Also is there a timing issue with buffering data, ie windows has not fully finished the write when you do the read....

The error code appears with

Justin_v_ — Thu, 06 Jul 2017 08:43:55 GMT

The error code appears with the read command, not the write command. File sizes of the write command also suggest something at least close to completion. Yes, -1 is end of file on read; it is also possible to generate code 64 (I think), if breaking the read up into multiple variables. I do not know how to check the end of file, as it is unformatted (binary). I can confirm that is definitely not a timing issue.

Playing around with this code snippet reveals no problems at all, but all sorts of failures appear when the "access='stream'" option is omitted and different combinations of variable reads-writes are used that imply a total file size greater than 2.1GB:

ii = 95000
jj = 2000
allocate ( store_huge(ii, jj*2), store_huge2(ii,jj), store_huge3(ii,jj), STAT = istat )
store_huge = 1.0
store_huge2 = 2.0
store_huge3 = 3.0

open( newunit = file_id, file = outputfilename, form = 'unformatted', action='write', access='stream', iostat = istat )
write(file_id, IOSTAT=istat) store_huge
write(file_id, IOSTAT=istat) store_huge2
write(file_id, IOSTAT=istat) store_huge3
close(file_id)

store_huge2 = 2.0
store_huge3 = 2.0
open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', access='stream', iostat = istat)
read(file_id, IOSTAT=istat) store_huge
read(file_id, IOSTAT=istat) store_huge2
read(file_id, IOSTAT=istat) store_huge3
close(file_id)

deallocate( store_huge, store_huge2, store_huge3 )

It really looks like microsoft have made some change that exposes a problem with the default (sequential) read/write unformatted combination.

These error still suggest you

andrew_4619 — Thu, 06 Jul 2017 09:23:18 GMT

These error still suggest you are reading and incomplete file. Read it back one byte at a type with non advancing IO until you get eof. Check the number of bytes read and the last few bytes read at eof. This might tell you something interesting or close this line of thought.

How do you know with certainly it is not a timing issue BTW?

Post a complete program for #5 that gives the error and I will test it.

It is not a timing issue,

Justin_v_ — Thu, 06 Jul 2017 11:08:06 GMT

It is not a timing issue, because the same problem originally appeared when I tried to read a file that had been written some days previously. I have also tested whether reading a (2.2GB) file an hour after it had been written (following my lunch break) made a difference - it didn't.

Find attached two zip folders, with VS solutions that replicate the problem attached. It appears that compiler options make a difference, as the code in the two solutions is identical, but the errors are different. VERSION 1 is an extract from the application that I originally tested on, and reproduces the errors I found during my testing - these are slightly different in VERSION 2.

Please note that this problem only appeared after the most recent windows 10 update (as discussed above) - the errors I get on my system are included in the source code comments.

Does adding:

jimdempseyatthecove — Thu, 06 Jul 2017 12:04:34 GMT

Does adding:

BUFFERED='yes'

have any effect?

Jim Dempsey

I just ran the test routine,

Justin_v_ — Thu, 06 Jul 2017 12:13:55 GMT

I just ran the test routine, and adding buffered='yes' didn't alter results at all.

Recently I have found a bug

Roman1 — Thu, 06 Jul 2017 18:59:04 GMT

Recently I have found a bug with unformatted I/O. Can you look at my previous post, and see if it is related to what you are seeing. Are you using /assume:buffered_io ?

https://software.intel.com/en-us/forums/intel-visual-fortran-compiler-for-windows/topic/721914

Roman

This is possibly the same

Justin_v_ — Thu, 06 Jul 2017 20:06:36 GMT

This is possibly the same problem as yours Roman, as I use the buffered I/O option by default. But, the problem I identify also arises when buffered I/O is suppressed - as indicated by the VERSION2.zip solution that is included in this post

I tried your version 1 and I

andrew_4619 — Fri, 07 Jul 2017 10:06:34 GMT

I tried your version 1 and I agree that it looks like a bug in the fortran runtime. I had a small play with test 1 (see below). There is nothing of interest in the windows (getlasterror) calls. it seems when the fortran sets the error status on the read the windows error gets reset to 0. I just did that as is sometimes shows something of interest.

when I did the write array array slices test it throws error 67 ( input statement requires too much data) reading the third slice, subsequent reads don't return a error (but fail as the data read is uninitialised).

In conclusion this is something INTEL need to look at.

MODULE tester


!*************************************************************
!
!	Module defined here to test specific functions
!
!*************************************************************

IMPLICIT none


CONTAINS


SUBROUTINE test11()

!*************************************************************
!
!	TEST to check writing routine
!
!*************************************************************
use ifwin, only: getlasterror
implicit none


! local
integer(4) :: ii, jj, file_id, istat
integer :: l1,l2
real(8), allocatable :: store_huge(:,:), store_huge2(:,:), store_huge3(:,:)
character(2000) :: outputFileName


!*************************************************************
!	begin code
!*************************************************************
outputFileName = 'C:\temp\check.dat'
ii = 95000
jj = 2000
allocate ( store_huge(ii, jj*2), store_huge2(ii,jj), store_huge3(ii,jj), STAT = istat )
store_huge = 1.0
store_huge2 = 2.0
store_huge3 = 3.0

! test 1
open( newunit = file_id, file = outputfilename, form = 'unformatted', action='write', iostat = istat )
do l1 = 1, size(store_huge, dim=2)
    write(file_id, IOSTAT=istat) store_huge(:,l1)
    if( istat /= 0 ) write(*,*) 'write1 l1, istat', l1, istat
enddo

    
!write(file_id, IOSTAT=istat) store_huge
close(file_id)

store_huge = 0.0
write(*,*) 'err code before open 1',getlasterror()
open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', iostat = istat)
write(*,*) 'err code before read 1',getlasterror()
!read(file_id, IOSTAT=istat) store_huge	! fails with istat = -1
do l1 = 1, size(store_huge, dim=2)
    read(file_id, IOSTAT=istat) store_huge(:,l1)	! fails with istat = -1
    if( istat /= 0 ) write(*,*) 'read1 l1, istat', l1, istat, getlasterror()
enddo

write(*,*) 'err code after read 1',getlasterror()
close(file_id)


open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', iostat = istat)
read(file_id, IOSTAT=istat) store_huge2
read(file_id, IOSTAT=istat) store_huge3	! fails with istat = 67
close(file_id)


! test 2
open( newunit = file_id, file = outputfilename, form = 'unformatted', action='write', iostat = istat )
write(file_id, IOSTAT=istat) store_huge2
write(file_id, IOSTAT=istat) store_huge3
close(file_id)

open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', iostat = istat)
read(file_id, IOSTAT=istat) store_huge2
read(file_id, IOSTAT=istat) store_huge3	! fails with istat = -1
close(file_id)

open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', iostat = istat)
read(file_id, IOSTAT=istat) store_huge	! fails with istat = -1
close(file_id)


! test 3
open( newunit = file_id, file = outputfilename, form = 'unformatted', action='write', iostat = istat )
write(file_id, IOSTAT=istat) store_huge
write(file_id, IOSTAT=istat) store_huge2
write(file_id, IOSTAT=istat) store_huge3
close(file_id)

open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', iostat = istat)
read(file_id, IOSTAT=istat) store_huge	! fails with istat = -1
read(file_id, IOSTAT=istat) store_huge2
read(file_id, IOSTAT=istat) store_huge3
close(file_id)


! test 4 - no fail
open( newunit = file_id, file = outputfilename, form = 'unformatted', action='write', access='stream', iostat = istat )
write(file_id, IOSTAT=istat) store_huge
close(file_id)

open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', access='stream', iostat = istat)
read(file_id, IOSTAT=istat) store_huge
close(file_id)


! test 5 - no fail
open( newunit = file_id, file = outputfilename, form = 'unformatted', action='write', access='stream', iostat = istat )
write(file_id, IOSTAT=istat) store_huge2
write(file_id, IOSTAT=istat) store_huge3
close(file_id)

open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', access='stream', iostat = istat)
read(file_id, IOSTAT=istat) store_huge2
read(file_id, IOSTAT=istat) store_huge3
close(file_id)


! test 6 - no fail
open( newunit = file_id, file = outputfilename, form = 'unformatted', action='write', access='stream', iostat = istat )
write(file_id, IOSTAT=istat) store_huge
write(file_id, IOSTAT=istat) store_huge2
write(file_id, IOSTAT=istat) store_huge3
close(file_id)

open(newunit=file_id, FILE=outputfilename, form = 'unformatted', action='read', access='stream', iostat = istat)
read(file_id, IOSTAT=istat) store_huge
read(file_id, IOSTAT=istat) store_huge2
read(file_id, IOSTAT=istat) store_huge3
close(file_id)



deallocate( store_huge, store_huge2, store_huge3 )


continue


END SUBROUTINE test11


END MODULE tester

Thanks for this Andrew - I am

Justin_v_ — Fri, 07 Jul 2017 11:19:49 GMT

Thanks for this Andrew - I am surprised that a error is appearing in the write statement on the grid slice test, as no error is reported when writing the full matrix. In any case, at least the 'stream' work-around is keeping me going for the moment, and hopefully the Intel people will resolve the issue before things get more complicated.

There was only error on read

andrew_4619 — Fri, 07 Jul 2017 12:01:33 GMT

There was only error on read not write.

Thanks for the clarification

Justin_v_ — Fri, 07 Jul 2017 12:04:32 GMT

Thanks for the clarification (I got confused by the "write array array slices test it throws error 67")

Hi Justin, Andrew,

Devorah_H_Intel — Fri, 07 Jul 2017 16:20:08 GMT

Hi Justin, Andrew,

Thank you for the report. I am checking with development on this and will get back to you shortly.

Best regard,

This was fixed as well in 18

Devorah_H_Intel — Fri, 07 Jul 2017 18:01:05 GMT

This was fixed as well in 18.0 compiler to be released soon.

-------------------------

The type of “store_huge” array was not specified. Using real*8”:

real*8, allocatable :: store_huge(:,:)

removed IOSTAT= specifier from READ statement to catch possible Input error:

read(1) store_huge

18.0 works fine:

-bash-4.1$ ifort -V

Intel(R) Fortran Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 18.0 Build 20170705

-bash-4.1$ ifort f2.f90 -assume buffered_io && ./a.out

-bash-4.1$

Apologies - is "real(8),

Justin_v_ — Fri, 07 Jul 2017 18:11:51 GMT

Apologies - is "real(8), allocatable" not equivalent to "real*8, allocable"? I do not follow how removing IOSTAT= specifier from READ statement will catch the error - I thought this would do the reverse (or maybe you have in mind a run-time error message)?

A bit confused, but happy to hear that it will be fixed in 18.0 - can you take a guess as to which month 18.0 will come out?

Many thanks,

Justin.

REAL*8 is an extension - in

Steve_Lionel — Fri, 07 Jul 2017 18:49:37 GMT

REAL*8 is an extension - in Intel Fortran it is equivalent to REAL(8). Best practice is to not use explicit kind numbers such as 8, though. See Doctor Fortran in "It Takes All KINDs"

Removing the IOSTAT allows the error to be reported on the console rather than just have the variable set. The error report will have more information.

And now I am confused as the

andrew_4619 — Fri, 07 Jul 2017 21:10:19 GMT

And now I am confused as the examples in this thread use real(8) and not the defunct real*8. I don't get Surely removing IOSTAT= that means I program crashes on error rather than you being able to handle the error.