File tree Expand file tree Collapse file tree 1 file changed +9
-1
lines changed Expand file tree Collapse file tree 1 file changed +9
-1
lines changed Original file line number Diff line number Diff line change @@ -134,6 +134,14 @@ subroutine test_logging_configuration()
134134 module = ' N/A' , &
135135 procedure = ' TEST_STDLIB_LOGGER' )
136136
137+ call global % log_information( ' This message should be output ' // &
138+ ' to OUTPUT_UNIT, unlimited in width, not preceded by ' // &
139+ ' a blank line, then by a time stamp, then by MODULE % ' // &
140+ ' PROCEDURE, be prefixed by INFO. ' // new_line(' a' ) // &
141+ ' This is a new line of the same log message.' , &
142+ module = ' N/A' , &
143+ procedure = ' TEST_STDLIB_LOGGER' )
144+
137145 call global % configure( add_blank_line= .true. , indent= .false. , &
138146 max_width= 72 , time_stamp= .false. )
139147
@@ -142,7 +150,7 @@ subroutine test_logging_configuration()
142150 log_units= log_units )
143151
144152 if ( add_blank_line ) then
145- write (* ,* ) ' ADD_BLANK_LINE is now .FALSE . as expected.'
153+ write (* ,* ) ' ADD_BLANK_LINE is now .TRUE . as expected.'
146154
147155 else
148156 error stop ' ADD_BLANKLINE is now .FALSE. contrary to expectations.'
You can’t perform that action at this time.
0 commit comments