@@ -754,31 +754,30 @@ Subroutine
754
754
#### Example
755
755
756
756
``` fortran
757
- program example
758
- use stdlib_logger
759
- ...
760
- character(*), parameter :: filename = 'dummy.txt'
761
- integer :: col_no, line_no, lun
762
- character(128) :: line
763
- character(*), parameter :: message = 'Bad text found.'
764
-
765
- open( newunit=lun, file = filename, statu='old', &
757
+ program demo_log_text_error
758
+ use stdlib_logger
759
+
760
+ character(*), parameter :: filename = 'dummy.txt'
761
+ integer :: col_no, line_no, lun
762
+ character(128) :: line
763
+ character(*), parameter :: message = 'Bad text found.'
764
+
765
+ open( newunit=lun, file = filename, statu='old', &
766
766
form='formatted' )
767
- line_no = 0
768
- do
769
- read( lun, fmt='(a)', end=900 ) line
770
- line_no = line_no + 1
771
- call check_line( line, status, col_no )
772
- if ( status /= 0 )
773
- call global_logger % log_text_error( line, &
767
+ line_no = 0
768
+ do
769
+ read( lun, fmt='(a)', end=900 ) line
770
+ line_no = line_no + 1
771
+ call check_line( line, status, col_no )
772
+ if ( status /= 0 )
773
+ call global_logger % log_text_error( line, &
774
774
col_no, message, filename, line_no )
775
- error stop 'Error in reading ' // filename
776
- end if
777
- ...
778
- end do
775
+ error stop 'Error in reading ' // filename
776
+ end if
777
+ end do
779
778
900 continue
780
- ...
781
- end program example
779
+
780
+ end program demo_log_text_error
782
781
```
783
782
784
783
### ` log_units_assigned ` - returns the number of active I/O units
0 commit comments