D.7.8 Get_Name_Overlapped_Vector Procedure

The main documentation of the Get_Name_Overlapped_Vector Procedure contains additional explanation of this code listing.

  function Get_Name_Overlapped_Vector (OV) result(Name)

    ! Input variable.

    type(Overlapped_Vector_type), intent(in) :: OV  ! Variable to be queried.

    ! Output variable.

    type(character,name_length) :: Name             ! Name of OV.

    !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    ! Verify requirements.

    VERIFY(Valid_State(OV),5)      ! OV is valid.

    ! Set the value.

    Name = OV%Name

    ! Verify guarantees - none.

    return
  end function Get_Name_Overlapped_Vector