Skip to content

Commit cf3221f

Browse files
milancurcicjvdp1
andauthored
Update doc/specs/stdlib_logger.md
Co-authored-by: Jeremie Vandenplas <jeremie.vandenplas@gmail.com>
1 parent 7fa7312 commit cf3221f

File tree

1 file changed

+13
-13
lines changed

1 file changed

+13
-13
lines changed

doc/specs/stdlib_logger.md

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -592,26 +592,26 @@ Subroutine
592592
#### Example
593593

594594
```fortran
595-
program example
596-
use stdlib_logger, global=>global_logger
597-
...
598-
character(*), parameter :: filename = 'dummy.txt'
599-
integer :: iostat, lun
600-
character(128) :: iomsg
601-
character(*), parameter :: message = &
595+
program demo_log_io_error
596+
use stdlib_logger, global=>global_logger
597+
598+
character(*), parameter :: filename = 'dummy.txt'
599+
integer :: iostat, lun
600+
character(128) :: iomsg
601+
character(*), parameter :: message = &
602602
'Failure in opening "dummy.txt".'
603603
604-
open( newunit=lun, file = filename, form='formatted', &
604+
open( newunit=lun, file = filename, form='formatted', &
605605
status='old', iostat=iostat, iomsg=iomsg )
606-
if ( iostat /= 0 ) then
606+
if ( iostat /= 0 ) then
607607
call global % log_io_error( message, &
608608
procedure = 'EXAMPLE', &
609609
iostat=iostat, &
610610
iomsg = iomsg )
611-
error stop 'Error on opening a file'
612-
end if
613-
...
614-
end program example
611+
error stop 'Error on opening a file'
612+
end if
613+
614+
end program demo_log_io_error
615615
```
616616

617617
### `log_message` - write the string `message` to `self % log_units`

0 commit comments

Comments
 (0)