before we forget ...
This commit is contained in:
parent
742b3718ec
commit
512e54a7ee
|
@ -131,7 +131,7 @@ function IO_read(fileName) result(fileContent)
|
||||||
if(myStat /= 0) call IO_error(100,ext_msg=trim(fileName))
|
if(myStat /= 0) call IO_error(100,ext_msg=trim(fileName))
|
||||||
allocate(character(len=fileLength)::fileContent)
|
allocate(character(len=fileLength)::fileContent)
|
||||||
read(fileUnit,iostat=myStat) fileContent
|
read(fileUnit,iostat=myStat) fileContent
|
||||||
if(myStat > 0) call IO_error(102,ext_msg=trim(fileName))
|
if(myStat > 0) call IO_error(102,ext_msg=trim(fileName)) ! <0 for ifort (https://software.intel.com/en-us/comment/1960081)
|
||||||
close(fileUnit)
|
close(fileUnit)
|
||||||
|
|
||||||
end function IO_read
|
end function IO_read
|
||||||
|
|
Loading…
Reference in New Issue