aggregate_scalar_diagnosis Module Procedure

module procedure aggregate_scalar_diagnosis pure module function aggregate_scalar_diagnosis(diagnoses) result(diagnosis)

Arguments

Type	Intent	Optional	Attributes		Name
type(test_diagnosis_t),	intent(in)			::	diagnoses

Return Value type(test_diagnosis_t)