level_logger: update test and specs

Author: jvdp1

doc/specs/stdlib_logger.md

@@ -70,10 +70,10 @@ filtering the log messages. These constants, termed severity levels, are
 (sorted following their increasing order of severity): `all_level`, 
 `debug_level`, `information_level`, `warning_level`, `error_level`, 
 `io_error_level`, `text_error_level`, and `none_level`.
-All log messages with a level lower than a specified severity level (e.g.,
-`information_level`) will be ignored. The levels `error_level`,
-`io_error_level`, and `text_error_level` have the same severity.
-The default severity level is `information_level`.
+All log messages with a level (e.g., `debug_level`) lower than a
+specified severity level (e.g., `information_level`) will be ignored.
+The levels `error_level`, `io_error_level`, and `text_error_level`
+have the same severity. The default severity level is `information_level`.
 
 
 ## The derived type: logger_type

src/stdlib_logger.f90

@@ -1472,6 +1472,8 @@ subroutine log_warning( self, message, module, procedure )
         character(len=*), intent(in), optional  :: procedure
 !! The name of the procedure contining the current invocation of `log_warning`
 
+        if ( self % level > warning_level ) return
+
         call self % log_message( message,               &
                                  module = module,       &
                                  procedure = procedure, &

src/tests/logger/test_stdlib_logger.f90

@@ -722,7 +722,8 @@ subroutine test_level()
 
         end if
 
-        call global % log_message('log_message printed')
+        call global % log_message('This message should be always printed, &
+             & irrespective of the severity level')
 
         call global % log_debug( 'This message should be printed')
         call global % log_information( 'This message should be printed')
@@ -742,7 +743,8 @@ subroutine test_level()
 
         end if
 
-        call global % log_message('log_message printed')
+        call global % log_message('This message should be always printed, &
+             & irrespective of the severity level')
 
         call global % log_debug( 'This message should be printed')
         call global % log_information( 'This message should be printed')
@@ -762,7 +764,8 @@ subroutine test_level()
 
         end if
 
-        call global % log_message('log_message printed')
+        call global % log_message('This message should be always printed, &
+             & irrespective of the severity level')
 
         call global % log_debug( 'This message should NOT be printed')
         call global % log_information( 'This message should be printed')
@@ -782,7 +785,8 @@ subroutine test_level()
 
         end if
 
-        call global % log_message('log_message printed')
+        call global % log_message('This message should be always printed, &
+             & irrespective of the severity level')
 
         call global % log_debug( 'This message should NOT be printed')
         call global % log_information( 'This message should NOT be printed')
@@ -802,7 +806,8 @@ subroutine test_level()
 
         end if
 
-        call global % log_message('log_message printed')
+        call global % log_message('This message should be always printed, &
+             & irrespective of the severity level')
 
         call global % log_debug( 'This message should NOT be printed')
         call global % log_information( 'This message should NOT be printed')
@@ -822,7 +827,8 @@ subroutine test_level()
 
         end if
 
-        call global % log_message('log_message printed')
+        call global % log_message('This message should be always printed, &
+             & irrespective of the severity level')
 
         call global % log_debug( 'This message should NOT be printed')
         call global % log_information( 'This message should NOT be printed')