append_character_if_test_failed Module Procedure

module procedure append_character_if_test_failed elemental module function append_character_if_test_failed(lhs, rhs) result(lhs_cat_rhs)

Arguments

Type IntentOptional Attributes Name
class(test_diagnosis_t), intent(in) :: lhs
character(len=*), intent(in) :: rhs

Return Value type(test_diagnosis_t)