@@ -521,10 +521,10 @@ subroutine format_output_string( self, string, col_indent, len_buffer, buffer )
521521! ! Writes the STRING to UNIT ensuring that the number of characters
522522! ! does not exceed MAX_WIDTH and that the lines after the first
523523! ! 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
526525 character (* ), intent (in ) :: string
527526 character (* ), intent (in ) :: col_indent
527+ integer , intent (out ) :: len_buffer
528528 character (len= :), allocatable , intent (out ) :: buffer
529529
530530 integer :: count, indent_len, index_, length, remain
@@ -799,7 +799,7 @@ subroutine log_error( self, message, module, procedure, stat, errmsg )
799799! ! end module example_mod
800800! !
801801
802- class(logger_type), intent (inout ) :: self
802+ class(logger_type), intent (in ) :: self
803803! ! The logger to be used in logging the message
804804 character (len=* ), intent (in ) :: message
805805! ! A string to be written to log_unit
@@ -888,7 +888,7 @@ subroutine log_information( self, message, module, procedure )
888888! ! end module example_mod
889889! !
890890
891- class(logger_type), intent (inout ) :: self
891+ class(logger_type), intent (in ) :: self
892892! ! The logger used to send the message
893893 character (len=* ), intent (in ) :: message
894894! ! A string to be written to log_unit
@@ -941,7 +941,7 @@ subroutine log_io_error( self, message, module, procedure, iostat, &
941941! ! ...
942942! ! end program example
943943
944- class(logger_type), intent (inout ) :: self
944+ class(logger_type), intent (in ) :: self
945945! ! The logger variable to receivee the message
946946 character (len=* ), intent (in ) :: message
947947! ! A string to be written to LOG_UNIT
@@ -1027,7 +1027,7 @@ subroutine log_message( self, message, module, procedure, prefix )
10271027! ! end module example_mod
10281028! !
10291029
1030- class(logger_type), intent (inout ) :: self
1030+ class(logger_type), intent (in ) :: self
10311031! ! The logger variable to receive the message
10321032 character (len=* ), intent (in ) :: message
10331033! ! A string to be written to log_unit
@@ -1151,7 +1151,7 @@ subroutine log_text_error( self, line, column, summary, filename, &
11511151! ! ...
11521152! ! end program example
11531153! !
1154- class(logger_type), intent (inout ) :: self
1154+ class(logger_type), intent (in ) :: self
11551155! ! The logger variable to receive the message
11561156 character (* ), intent (in ) :: line
11571157! ! The line of text in which the error was found.
@@ -1362,7 +1362,7 @@ subroutine log_warning( self, message, module, procedure )
13621362! ! ...
13631363! ! end module example_mod
13641364! !
1365- class(logger_type), intent (inout ) :: self
1365+ class(logger_type), intent (in ) :: self
13661366! ! The logger to which the message is written
13671367 character (len=* ), intent (in ) :: message
13681368! ! A string to be written to LOG_UNIT
0 commit comments