@@ -442,32 +442,32 @@ Subroutine
442
442
#### Example
443
443
444
444
``` fortran
445
- module example_mod
446
- use stdlib_logger
447
- ...
448
- real, allocatable :: a(:)
449
- ...
450
- type(logger_type) :: logger
451
- ...
445
+ module example_mod
446
+ use stdlib_logger
447
+
448
+ real, allocatable :: a(:)
449
+
450
+ type(logger_type) :: logger
451
+
452
452
contains
453
- ...
454
- subroutine example_sub( size )
453
+
454
+ subroutine example_sub( size)
455
455
integer, intent(in) :: size
456
456
character(128) :: errmsg, message
457
457
integer :: stat
458
458
allocate( a(size), stat=stat, errmsg=errmsg )
459
459
if ( stat /= 0 ) then
460
- write( message, '(a, i0)' ) &
461
- "Allocation of A failed with SIZE = ", size
462
- call logger % log_error( message, &
460
+ write( message, '(a, i0)' ) &
461
+ "Allocation of A failed with SIZE = ", size
462
+ call logger % log_error( message, &
463
463
module = 'EXAMPLE_MOD', &
464
464
procedure = 'EXAMPLE_SUB', &
465
465
stat = stat, &
466
466
errmsg = errmsg )
467
- end if
468
- end subroutine example_sub
469
- ...
470
- end module example_mod
467
+ end if
468
+ end subroutine example_sub
469
+
470
+ end module example_mod
471
471
```
472
472
473
473
### ` log_information ` - Writes the string ` message ` to ` self % log_units `
0 commit comments