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()
134
134
module = ' N/A' , &
135
135
procedure = ' TEST_STDLIB_LOGGER' )
136
136
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
+
137
145
call global % configure( add_blank_line= .true. , indent= .false. , &
138
146
max_width= 72 , time_stamp= .false. )
139
147
@@ -142,7 +150,7 @@ subroutine test_logging_configuration()
142
150
log_units= log_units )
143
151
144
152
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.'
146
154
147
155
else
148
156
error stop ' ADD_BLANKLINE is now .FALSE. contrary to expectations.'
You can’t perform that action at this time.
0 commit comments