diff options
Diffstat (limited to 'dumb_render.f90')
-rw-r--r-- | dumb_render.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/dumb_render.f90 b/dumb_render.f90 index 21d6c34..3980245 100644 --- a/dumb_render.f90 +++ b/dumb_render.f90 @@ -36,6 +36,8 @@ implicit none procedure :: request_input => dumb_request_input procedure :: draw_error => dumb_draw_error + + procedure :: report_status => dumb_draw_status end type dumb_renderer @@ -224,4 +226,14 @@ contains end subroutine dumb_draw_error + subroutine dumb_draw_status(self, text) + implicit none + + class(dumb_renderer)::self + character(*), intent(in)::text + + Print *, "*** "//trim(text)//" ***" + + end subroutine dumb_draw_status + end module dumb_render
\ No newline at end of file |