diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 15:17:22 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 15:17:22 -0400 |
commit | b32558e3fb7021bb7fe2af311aaa535c79fc5637 (patch) | |
tree | fd3abf1369fee8315f2ccbd2df3a56dd4c3c9cbb /files.f90 | |
parent | aa6707d3e3b6e449eb6b2299091cfaefe52ae849 (diff) | |
download | LR-87-b32558e3fb7021bb7fe2af311aaa535c79fc5637.tar.gz LR-87-b32558e3fb7021bb7fe2af311aaa535c79fc5637.zip |
Fixed stream io under non-Windows systems. Updated non-Windows project.
Diffstat (limited to 'files.f90')
-rw-r--r-- | files.f90 | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -50,6 +50,9 @@ contains allocate(character(len=length) :: res) res = repeat(' ', length) + ! Rewind seems necessary, especially on non-Windows... + rewind(unit_number) + read(unit_number, '(A1)', pos=startpos, advance='no', iostat=iostatus) c if(iostatus == 0) then res(1:1) = c |