Skip to content

Commit 50dec22

Browse files
committed
moved self , intent(inout) to self intent(in) as suggested in the review
1 parent 6ca6e73 commit 50dec22

File tree

1 file changed

+8
-8
lines changed

1 file changed

+8
-8
lines changed

src/stdlib_logger.f90

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)