@@ -592,26 +592,26 @@ Subroutine
592
592
#### Example
593
593
594
594
``` 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 = &
602
602
'Failure in opening "dummy.txt".'
603
603
604
- open( newunit=lun, file = filename, form='formatted', &
604
+ open( newunit=lun, file = filename, form='formatted', &
605
605
status='old', iostat=iostat, iomsg=iomsg )
606
- if ( iostat /= 0 ) then
606
+ if ( iostat /= 0 ) then
607
607
call global % log_io_error( message, &
608
608
procedure = 'EXAMPLE', &
609
609
iostat=iostat, &
610
610
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
615
615
```
616
616
617
617
### ` log_message ` - write the string ` message ` to ` self % log_units `
0 commit comments