append_message Subroutine

   subroutine append_message(msg)
      character(len=*), intent(in) :: msg

      if (.not. allocated(log)) then
         log = msg
      else
         log = log // ' :: ' // msg
      end if

   end subroutine append_message