reject_kind_mismatch Function

private function reject_kind_mismatch(op, id, key, opcode_kind, expected_kind, reply_header) result(mismatch)

Rank-0-only ok=false type_mismatch reply for a SET_/GET_ opcode whose own kind does not match the schema's expected_kind for key. Callers must check session_schema_lookup's ok first and keep reporting unknown_key when the key itself is not found; this only covers a key that does exist but was addressed by the wrong-kind opcode (e.g. SET_INTEGER on the real-valued key cfl), aligning the real worker with the cortex stub's stricter behaviour.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: op
character(len=*), intent(in) :: id
character(len=*), intent(in) :: key
integer, intent(in) :: opcode_kind
integer, intent(in) :: expected_kind
integer(kind=int8), intent(out), allocatable :: reply_header(:)

Return Value logical