cli_assign_cli Subroutine

private elemental subroutine cli_assign_cli(lhs, rhs)

Assignment operator.

Type Bound

command_line_interface

Arguments

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

Left hand side.
type(command_line_interface), intent(in) :: rhs

Right hand side.

Calls

proc~~cli_assign_cli~~CallsGraph proc~cli_assign_cli flap_command_line_interface_t::command_line_interface%cli_assign_cli proc~assign_object flap_object_t::object%assign_object proc~cli_assign_cli->proc~assign_object

Source Code

  elemental subroutine cli_assign_cli(lhs, rhs)
  !< Assignment operator.
  class(command_line_interface), intent(inout) :: lhs !< Left hand side.
  type(command_line_interface),  intent(in)    :: rhs !< Right hand side.

  ! object members
  call lhs%assign_object(rhs)
  ! command_line_interface members
  if (allocated(rhs%clasg   )) lhs%clasg      = rhs%clasg
  if (allocated(rhs%examples)) lhs%examples   = rhs%examples
                               lhs%disable_hv = rhs%disable_hv
  endsubroutine cli_assign_cli