| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | len | :: | sz | |||
| type(timer_point_t), | public | :: | list(sz) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(timer_t(*)), | intent(inout) | :: | me |
type timer_t(sz) integer, len :: sz type(timer_point_t) :: list(sz) contains procedure :: set => timer_set procedure :: print => timer_print end type timer_t