Jerry DeLisle wrote:
This updated patch addresses the issues with infinities, nans,
characters, and valid reals.
And complex.
OK for trunk?
Test case attached.
Thanks for the patch. It looks okay (with a ChangeLog).
However, I found yet another case which is not handled, namely reals
with exponentials such as "1.0e3". Hopefully, we have then covered all
cases.
open(99, file="test.dat", access="stream", form="unformatted", status="new")
write(99) "1.0e3"
close(99)
!or: stream
open(99, file="test.dat",access="sequential", form="formatted",
status="old")
read (99,*, iostat=stat) var
if (stat /= 0 .or. var /= 1000) call abort()
close(99)
Tobias
