File tree Expand file tree Collapse file tree 1 file changed +12
-12
lines changed Expand file tree Collapse file tree 1 file changed +12
-12
lines changed Original file line number Diff line number Diff line change @@ -815,24 +815,24 @@ The result is the number of I/O units in
815
815
#### Example
816
816
817
817
``` fortran
818
- module example_mod
819
- use stdlib_logger
820
- ...
821
- type(logger_type) :: logger
818
+ module example_mod
819
+ use stdlib_logger
820
+
821
+ type(logger_type) :: logger
822
822
contains
823
- ...
824
- subroutine example_sub(unit, ...)
823
+
824
+ subroutine example_sub(unit, ...)
825
825
integer, intent(in) :: unit
826
- ...
826
+
827
827
integer, allocatable :: log_units(:)
828
- ...
828
+
829
829
if ( logger % log_units_assigned() == 0 ) then
830
830
call logger % add_log_unit( unit )
831
831
end if
832
- ...
833
- end subroutine example_sub
834
- ...
835
- end module example_mod
832
+
833
+ end subroutine example_sub
834
+
835
+ end module example_mod
836
836
```
837
837
838
838
### ` log_warning ` - write the string ` message ` to ` log_units `
You can’t perform that action at this time.
0 commit comments