Apply suggestion: don't use TBP for new constructors

1 files changed, 11 insertions, 8 deletions

diff --git a/src/fpm_backend_console.f90 b/src/fpm_backend_console.f90
index 4422037..73bcd5d 100644
--- a/src/fpm_backend_console.f90
+++ b/src/fpm_backend_console.f90
@@ -30,22 +30,25 @@ type console_t
     !> Escape code for moving down one line

     character(:), allocatable :: LINE_DOWN

 contains

-    !> Initialise the console object

-    procedure :: init => console_init

     !> Write a single line to the console

     procedure :: write_line => console_write_line

     !> Update a previously-written console line

     procedure :: update_line => console_update_line

 end type console_t

 

+!> Constructor for console_t

+interface console_t

+    procedure :: new_console

+end interface console_t

+

 contains

 

-!> Initialise the console object

-subroutine console_init(console,plain_mode)

-    !> Console object to initialise

-    class(console_t), intent(out), target :: console

+!> Initialise a new console object

+function new_console(plain_mode) result(console)

     !> 'Plain' output (no escape codes)

     logical, intent(in), optional :: plain_mode

+    !> Console object to initialise

+    type(console_t) :: console

 

     if (present(plain_mode)) then

         console%plain_mode = plain_mode

@@ -61,12 +64,12 @@ subroutine console_init(console,plain_mode)
         console%LINE_DOWN = ESC//"[1B"

     end if

 

-end subroutine console_init

+end function new_console

 

 !> Write a single line to the standard output

 subroutine console_write_line(console,str,line,advance)

     !> Console object

-    class(console_t), intent(inout), target :: console

+    class(console_t), intent(inout) :: console

     !> String to write

     character(*), intent(in) :: str

     !> Integer needed to later update console line