Merge pull request fortran-lang#90 from certik/stream

Use access = "stream" by default
jvdp1 · Jan 6, 2020 · e2b0cda · e2b0cda
2 parents 57d99f8 + f0a6886
commit e2b0cda
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/stdlib_experimental_io.f90 b/src/stdlib_experimental_io.f90
@@ -335,15 +335,15 @@ integer function open(filename, mode, iostat) result(u)
 
 select case (mode_(3:3))
 case('t')
-    access_='sequential'
     form_='formatted'
-case('b', 's')
-    access_='stream'
+case('b')
     form_='unformatted'
 case default
     call error_stop("Unsupported mode: "//mode_(3:3))
 end select
 
+access_ = 'stream'
+
 if (present(iostat)) then
     open(newunit=u, file=filename, &
          action = action_, position = position_, status = status_, &