assign_object Subroutine

private elemental subroutine assign_object(lhs, rhs)

Assign two abstract objects.

Type Bound

object

Arguments

Type IntentOptional Attributes Name
class(object), intent(inout) :: lhs

Left hand side.
class(object), intent(in) :: rhs

Rigth hand side.

Called by

proc~~assign_object~~CalledByGraph proc~assign_object flap_object_t::object%assign_object proc~add_group flap_command_line_interface_t::command_line_interface%add_group proc~add_group->proc~assign_object proc~add~2 flap_command_line_interface_t::command_line_interface%add proc~add~2->proc~assign_object proc~add~2->proc~add_group proc~cla_assign_cla flap_command_line_argument_t::command_line_argument%cla_assign_cla proc~cla_assign_cla->proc~assign_object proc~clasg_assign_clasg flap_command_line_arguments_group_t::command_line_arguments_group%clasg_assign_clasg proc~clasg_assign_clasg->proc~assign_object proc~cli_assign_cli flap_command_line_interface_t::command_line_interface%cli_assign_cli proc~cli_assign_cli->proc~assign_object proc~init flap_command_line_interface_t::command_line_interface%init proc~init->proc~assign_object proc~parse flap_command_line_arguments_group_t::command_line_arguments_group%parse proc~parse->proc~assign_object proc~fake_call flap_test_group::fake_call proc~fake_call->proc~add_group proc~fake_call->proc~add~2 proc~fake_call->proc~init proc~parse~2 flap_command_line_interface_t::command_line_interface%parse proc~fake_call->proc~parse~2 none~get~2 flap_command_line_interface_t::command_line_interface%get proc~fake_call->none~get~2 proc~parse~2->proc~add~2 proc~parse~2->proc~parse program~flap_save_bash_completion flap_save_bash_completion program~flap_save_bash_completion->proc~add_group program~flap_save_bash_completion->proc~add~2 program~flap_save_bash_completion->proc~init program~flap_save_bash_completion->proc~parse~2 program~flap_save_man_page flap_save_man_page program~flap_save_man_page->proc~add~2 program~flap_save_man_page->proc~init program~flap_save_man_page->none~get~2 program~flap_save_usage_to_markdown flap_save_usage_to_markdown program~flap_save_usage_to_markdown->proc~add~2 program~flap_save_usage_to_markdown->proc~init program~flap_save_usage_to_markdown->none~get~2 program~flap_test_action_store flap_test_action_store program~flap_test_action_store->proc~add~2 program~flap_test_action_store->proc~init none~get_varying~2 flap_command_line_interface_t::command_line_interface%get_varying program~flap_test_action_store->none~get_varying~2 program~flap_test_action_store->none~get~2 program~flap_test_ansi_color_style flap_test_ansi_color_style program~flap_test_ansi_color_style->proc~add~2 program~flap_test_ansi_color_style->proc~init program~flap_test_ansi_color_style->none~get~2 program~flap_test_basic flap_test_basic program~flap_test_basic->proc~add~2 program~flap_test_basic->proc~init program~flap_test_basic->proc~parse~2 program~flap_test_basic->none~get_varying~2 program~flap_test_basic->none~get~2 program~flap_test_choices_logical flap_test_choices_logical program~flap_test_choices_logical->proc~add~2 program~flap_test_choices_logical->proc~init program~flap_test_choices_logical->proc~parse~2 program~flap_test_choices_logical->none~get~2 program~flap_test_duplicated_clas flap_test_duplicated_clas program~flap_test_duplicated_clas->proc~add~2 program~flap_test_duplicated_clas->proc~init program~flap_test_duplicated_clas->none~get~2 program~flap_test_group_examples flap_test_group_examples program~flap_test_group_examples->proc~add_group program~flap_test_group_examples->proc~add~2 program~flap_test_group_examples->proc~init program~flap_test_group_examples->none~get~2 program~flap_test_hidden flap_test_hidden program~flap_test_hidden->proc~add~2 program~flap_test_hidden->proc~init program~flap_test_hidden->none~get~2 program~flap_test_ignore_unknown_clas flap_test_ignore_unknown_clas program~flap_test_ignore_unknown_clas->proc~add~2 program~flap_test_ignore_unknown_clas->proc~init program~flap_test_ignore_unknown_clas->none~get~2 program~flap_test_minimal flap_test_minimal program~flap_test_minimal->proc~add~2 program~flap_test_minimal->proc~init program~flap_test_minimal->none~get~2 program~flap_test_nargs_insufficient flap_test_nargs_insufficient program~flap_test_nargs_insufficient->proc~add~2 program~flap_test_nargs_insufficient->proc~init program~flap_test_nargs_insufficient->none~get~2 program~flap_test_nargs_insufficient~2 flap_test_nargs_insufficient program~flap_test_nargs_insufficient~2->proc~add~2 program~flap_test_nargs_insufficient~2->proc~init program~flap_test_nargs_insufficient~2->none~get~2 program~flap_test_nested flap_test_nested program~flap_test_nested->proc~add_group program~flap_test_nested->proc~add~2 program~flap_test_nested->proc~init program~flap_test_nested->proc~parse~2 program~flap_test_nested->none~get~2 program~flap_test_string flap_test_string program~flap_test_string->proc~add~2 program~flap_test_string->proc~init program~flap_test_string->proc~parse~2 program~flap_test_string->none~get~2 proc~get_cla_list_varying_char~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_char proc~get_cla_list_varying_char~2->proc~parse~2 proc~get_cla_list_varying_i1p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_I1P proc~get_cla_list_varying_i1p~2->proc~parse~2 proc~get_cla_list_varying_i2p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_I2P proc~get_cla_list_varying_i2p~2->proc~parse~2 proc~get_cla_list_varying_i4p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_I4P proc~get_cla_list_varying_i4p~2->proc~parse~2 proc~get_cla_list_varying_i8p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_I8P proc~get_cla_list_varying_i8p~2->proc~parse~2 proc~get_cla_list_varying_logical~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_logical proc~get_cla_list_varying_logical~2->proc~parse~2 proc~get_cla_list_varying_r16p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_R16P proc~get_cla_list_varying_r16p~2->proc~parse~2 proc~get_cla_list_varying_r4p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_R4P proc~get_cla_list_varying_r4p~2->proc~parse~2 proc~get_cla_list_varying_r8p~2 flap_command_line_interface_t::command_line_interface%get_cla_list_varying_R8P proc~get_cla_list_varying_r8p~2->proc~parse~2 proc~get_cla_list~2 flap_command_line_interface_t::command_line_interface%get_cla_list proc~get_cla_list~2->proc~parse~2 proc~get_cla~2 flap_command_line_interface_t::command_line_interface%get_cla proc~get_cla~2->proc~parse~2 program~flap_test_group flap_test_group program~flap_test_group->proc~fake_call none~get_varying~2->proc~get_cla_list_varying_char~2 none~get_varying~2->proc~get_cla_list_varying_i1p~2 none~get_varying~2->proc~get_cla_list_varying_i2p~2 none~get_varying~2->proc~get_cla_list_varying_i4p~2 none~get_varying~2->proc~get_cla_list_varying_i8p~2 none~get_varying~2->proc~get_cla_list_varying_logical~2 none~get_varying~2->proc~get_cla_list_varying_r4p~2 none~get_varying~2->proc~get_cla_list_varying_r8p~2 none~get~2->proc~get_cla_list~2 none~get~2->proc~get_cla~2

Source Code

  elemental subroutine assign_object(lhs, rhs)
  !< Assign two abstract objects.
  class(object), intent(inout) :: lhs !< Left hand side.
  class(object), intent(in)    :: rhs !< Rigth hand side.

  if (allocated(rhs%progname     )) lhs%progname      = rhs%progname
  if (allocated(rhs%version      )) lhs%version       = rhs%version
  if (allocated(rhs%help         )) lhs%help          = rhs%help
  if (allocated(rhs%help_color   )) lhs%help_color    = rhs%help_color
  if (allocated(rhs%help_style   )) lhs%help_style    = rhs%help_style
  if (allocated(rhs%help_markdown)) lhs%help_markdown = rhs%help_markdown
  if (allocated(rhs%description  )) lhs%description   = rhs%description
  if (allocated(rhs%license      )) lhs%license       = rhs%license
  if (allocated(rhs%authors      )) lhs%authors       = rhs%authors
  if (allocated(rhs%epilog       )) lhs%epilog        = rhs%epilog
  if (allocated(rhs%m_exclude    )) lhs%m_exclude     = rhs%m_exclude
  if (allocated(rhs%error_message)) lhs%error_message = rhs%error_message
  if (allocated(rhs%error_color  )) lhs%error_color   = rhs%error_color
  if (allocated(rhs%error_style  )) lhs%error_style   = rhs%error_style
                                    lhs%error         = rhs%error
                                    lhs%usage_lun     = rhs%usage_lun
                                    lhs%version_lun   = rhs%version_lun
                                    lhs%error_lun     = rhs%error_lun
  endsubroutine assign_object