Skip to content

Commit 5128458

Browse files
committed
Fix an out of bounds error
1 parent 08dc86b commit 5128458

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

src/stdlib_experimental_io.f90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -357,6 +357,7 @@ integer function open(filename, mode) result(u)
357357
character(*), intent(in) :: mode
358358

359359
mode_ = 'r t'
360+
if (len_trim(mode) == 0) return
360361
mode_(1:1) = mode(1:1)
361362

362363
if (len_trim(adjustl(mode)) > 1) then

0 commit comments

Comments
 (0)