@@ -521,10 +521,10 @@ subroutine format_output_string( self, string, col_indent, len_buffer, buffer )
521
521
! ! Writes the STRING to UNIT ensuring that the number of characters
522
522
! ! does not exceed MAX_WIDTH and that the lines after the first
523
523
! ! one are indented four characters.
524
- class(logger_type), intent (inout ) :: self
525
- integer , intent (out ) :: len_buffer
524
+ class(logger_type), intent (in ) :: self
526
525
character (* ), intent (in ) :: string
527
526
character (* ), intent (in ) :: col_indent
527
+ integer , intent (out ) :: len_buffer
528
528
character (len= :), allocatable , intent (out ) :: buffer
529
529
530
530
integer :: count, indent_len, index_, length, remain
@@ -799,7 +799,7 @@ subroutine log_error( self, message, module, procedure, stat, errmsg )
799
799
! ! end module example_mod
800
800
! !
801
801
802
- class(logger_type), intent (inout ) :: self
802
+ class(logger_type), intent (in ) :: self
803
803
! ! The logger to be used in logging the message
804
804
character (len=* ), intent (in ) :: message
805
805
! ! A string to be written to log_unit
@@ -888,7 +888,7 @@ subroutine log_information( self, message, module, procedure )
888
888
! ! end module example_mod
889
889
! !
890
890
891
- class(logger_type), intent (inout ) :: self
891
+ class(logger_type), intent (in ) :: self
892
892
! ! The logger used to send the message
893
893
character (len=* ), intent (in ) :: message
894
894
! ! A string to be written to log_unit
@@ -941,7 +941,7 @@ subroutine log_io_error( self, message, module, procedure, iostat, &
941
941
! ! ...
942
942
! ! end program example
943
943
944
- class(logger_type), intent (inout ) :: self
944
+ class(logger_type), intent (in ) :: self
945
945
! ! The logger variable to receivee the message
946
946
character (len=* ), intent (in ) :: message
947
947
! ! A string to be written to LOG_UNIT
@@ -1027,7 +1027,7 @@ subroutine log_message( self, message, module, procedure, prefix )
1027
1027
! ! end module example_mod
1028
1028
! !
1029
1029
1030
- class(logger_type), intent (inout ) :: self
1030
+ class(logger_type), intent (in ) :: self
1031
1031
! ! The logger variable to receive the message
1032
1032
character (len=* ), intent (in ) :: message
1033
1033
! ! A string to be written to log_unit
@@ -1151,7 +1151,7 @@ subroutine log_text_error( self, line, column, summary, filename, &
1151
1151
! ! ...
1152
1152
! ! end program example
1153
1153
! !
1154
- class(logger_type), intent (inout ) :: self
1154
+ class(logger_type), intent (in ) :: self
1155
1155
! ! The logger variable to receive the message
1156
1156
character (* ), intent (in ) :: line
1157
1157
! ! The line of text in which the error was found.
@@ -1362,7 +1362,7 @@ subroutine log_warning( self, message, module, procedure )
1362
1362
! ! ...
1363
1363
! ! end module example_mod
1364
1364
! !
1365
- class(logger_type), intent (inout ) :: self
1365
+ class(logger_type), intent (in ) :: self
1366
1366
! ! The logger to which the message is written
1367
1367
character (len=* ), intent (in ) :: message
1368
1368
! ! A string to be written to LOG_UNIT
0 commit comments