File tree Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -243,25 +243,25 @@ to `unit`.
243243``` fortran
244244program demo_add_log_unit
245245 use stdlib_logger, only: global_logger, read_only_error
246- ...
246+
247247 character(256) :: iomsg
248248 integer :: iostat, unit, stat
249- ...
249+
250250 open( newunit=unit, 'error_log.txt', &
251251 form='formatted', status='replace', &
252252 position='rewind', err=999, &
253253 action='read', iostat=iostat, iomsg=iomsg )
254- ...
254+
255255 call global_logger % add_log_unit( unit, stat )
256256 select case ( stat )
257- ...
257+
258258 case ( read_only_error )
259259 error stop 'Unable to write to "error_log.txt".'
260- ...
260+
261261 end select
262- ...
262+
263263 999 error stop 'Unable to open "error_log.txt".
264- ...
264+
265265end program demo_add_log_unit
266266```
267267
You can’t perform that action at this time.
0 commit comments