comm_t
pure function comm_is_null(this) result(is_null) class(comm_t), intent(in) :: this logical :: is_null is_null = .not. this%is_valid end function comm_is_null