Commit eb81933

committed

io: update access mode handling in open function

1 parent c892a74 commit eb81933Copy full SHA for eb81933

File tree

-3

lines changed

-3

lines changed

Lines changed: 2 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -52,7 +52,8 @@ Experimental`
`52`	`52`
`53`	`53`	`### Description`
`54`	`54`
`55`		`-Returns the unit number of a file opened to read, to write, or to read and write. The file might be a text file or a binary file. All files are opened using a streamed access.`
	`55`	`+Returns the unit number of a file opened to read, to write, or to read and write. The file might be a text file or a binary file.`
	`56`	`+Text files are opened using a sequential access, while binary files are opened using a streamed access.`
`56`	`57`
`57`	`58`	`### Syntax`
`58`	`59`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -460,14 +460,14 @@ contains`
`460`	`460`	`select case (mode_(3:3))`
`461`	`461`	`case('t')`
`462`	`462`	`form_='formatted'`
	`463`	`+ access_='sequential'`
`463`	`464`	`case('b')`
`464`	`465`	`form_='unformatted'`
	`466`	`+ access_ = 'stream'`
`465`	`467`	`case default`
`466`	`468`	`call error_stop("Unsupported mode: "//mode_(3:3))`
`467`	`469`	`end select`
`468`	`470`
`469`		`- access_ = 'stream'`
`470`		`-`
`471`	`471`	`if (present(iostat)) then`
`472`	`472`	`open(newunit=u, file=filename, &`
`473`	`473`	`action = action_, position = position_, status = status_, &`

Comments

(0)