kind_label Function

private pure function kind_label(kind) result(label)

Human-readable label for a cfg_kind_* tag, used only in type_mismatch messages (never as a wire code).

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	kind

Return Value character(len=16)