diff options
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 |