Update src/stdlib_experimental_io.f90

certik · jvdp1 · web-flow · commit f0a68868fb84 · 2020-01-06T07:56:18.000-07:00
Co-Authored-By: Jeremie Vandenplas &lt;jeremie.vandenplas@gmail.com&gt;
diff --git a/src/stdlib_experimental_io.f90 b/src/stdlib_experimental_io.f90
@@ -336,7 +336,7 @@ integer function open(filename, mode, iostat) result(u)
 select case (mode_(3:3))
 case('t')
     form_='formatted'
-case('b', 's')
+case('b')
     form_='unformatted'
 case default
     call error_stop("Unsupported mode: "//mode_(3:3))
