@@ -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