MockServer.F90 Source File

#include "unused_dummy.H"
module MockServerMod

   use pFIO_BaseServerMod
   use pFIO_AbstractDataReferenceMod

   implicit none
   private

   public :: MockServer

   type,extends (BaseServer) :: MockServer
      character(len=16) :: port_name
   contains
      procedure :: start
   end type MockServer


   interface MockServer
      module procedure new_MockServer
   end interface MockServer


contains

   function new_MockServer(comm) result(s)
      type (MockServer) :: s
      integer, optional, intent(in) :: comm

      if (present(comm)) s%comm = comm
      allocate(s%serverthread_done_msgs(1))
      s%serverthread_done_msgs(:) = .true.

   end function new_MockServer

   subroutine start(this, rc)
      class (MockServer),target, intent(inout) :: this
      integer, optional, intent(out) :: rc
   end subroutine

end module MockServerMod