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()
191191 module = ' N/A' , &
192192 procedure = ' TEST_STDLIB_LOGGER' )
193193
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+
194201 call global % configure( add_blank_line= .false. , indent= .true. , &
195202 max_width= 72 , time_stamp= .true. )
196203
@@ -202,6 +209,14 @@ subroutine test_logging_configuration()
202209 module = ' N/A' , &
203210 procedure = ' TEST_STDLIB_LOGGER' )
204211
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+
205220 end subroutine test_logging_configuration
206221
207222
You can’t perform that action at this time.
0 commit comments