| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(string) | :: | astring | ||||
| type(string), | allocatable | :: | strings(:) | |||
| logical | :: | test_passed(1) |
program volatile_doctest
use stringifor_string_t
type(string) :: astring
type(string), allocatable :: strings(:)
logical :: test_passed(1)
astring = '-1-2-3-4-5-6-7-8-'
call astring%split_chunked(tokens=strings, sep='-', chunks=3)
test_passed(1) = (strings(1)//''=='1'.and.strings(2)//''=='2'.and.strings(3)//''=='3'.and.strings(4)//''=='4'.and. &
strings(5)//''=='5'.and.strings(6)//''=='6'.and.strings(7)//''=='7'.and.strings(8)//''=='8')
print '(L1)', all(test_passed)
endprogram volatile_doctest