| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(string) | :: | astring | ||||
| character(len=:), | allocatable | :: | acharacter | |||
| logical | :: | test_passed(1) |
program volatile_doctest use stringifor_string_t type(string) :: astring character(len=:), allocatable :: acharacter logical :: test_passed(1) astring = 'Hello ' acharacter = 'World!' test_passed(1) = acharacter//astring=='World!Hello ' print '(L1)', all(test_passed) endprogram volatile_doctest