File tree Expand file tree Collapse file tree 1 file changed +15
-0
lines changed Expand file tree Collapse file tree 1 file changed +15
-0
lines changed Original file line number Diff line number Diff line change @@ -191,6 +191,13 @@ subroutine test_logging_configuration()
191
191
module = ' N/A' , &
192
192
procedure = ' TEST_STDLIB_LOGGER' )
193
193
194
+ call global % log_message( ' The last word of the first line ' // &
195
+ new_line(' a' )// ' should be "line". "Line"' // new_line(' a' ) // &
196
+ ' is also the last word for the second line. The following ' // &
197
+ ' lines should be limited to 72 columns width.' , &
198
+ module = ' N/A' , &
199
+ procedure = ' TEST_STDLIB_LOGGER' )
200
+
194
201
call global % configure( add_blank_line= .false. , indent= .true. , &
195
202
max_width= 72 , time_stamp= .true. )
196
203
@@ -202,6 +209,14 @@ subroutine test_logging_configuration()
202
209
module = ' N/A' , &
203
210
procedure = ' TEST_STDLIB_LOGGER' )
204
211
212
+ call global % log_message( ' The last word of the first line ' // &
213
+ new_line(' a' )// ' should be "the". "Line"' // new_line(' a' ) // &
214
+ ' should be the last word for the second line. The following ' // &
215
+ ' lines should be limited to 72 columns width. From the second ' // &
216
+ ' line, all lines should be indented by 4 columns.' ,&
217
+ module = ' N/A' , &
218
+ procedure = ' TEST_STDLIB_LOGGER' )
219
+
205
220
end subroutine test_logging_configuration
206
221
207
222
You can’t perform that action at this time.
0 commit comments