Demonstrate a derived type that is writable to a stop via Julienne's stop_and_print utility
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(write_stuff_t), | intent(in) | :: | self | |||
| integer, | intent(in) | :: | unit | |||
| character(len=*), | intent(in) | :: | edit_descriptor | |||
| integer, | intent(in) | :: | v_list(:) | |||
| integer, | intent(out) | :: | iostat | |||
| character(len=*), | intent(inout) | :: | iomsg |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | answer_ | = | 42 |
| procedure, public :: maxlen | |
| procedure, public :: set_maxlen | |
| generic, public :: write(formatted) => write_formatted | |
| procedure, public :: write_formatted |