static int char_test(IC_Env *env) { char c = 'g', co, cr; /* char test */ fprintf(stdout, "\n======== m_i_char test ======\n\n"); cr = m_i_char_test(NULL, c, &co, env); CHECK_EXCEPTION(env); RETURN_IF_OK(c == co && c == cr); if
static int char_test(IC_Env *env) { char c = 'g', co, cr; /* char test */ fprintf(stdout, "\n======== m_i_char test ======\n\n"); cr = m_i_char_test(NULL, c, &co, env); CHECK_EXCEPTION(env); RETURN_IF_OK(c == co && c == cr); if (c !=co) fprintf(stdout, " out parameter error, sent: %c, got: %c\n", c, co); if (c != cr) fprintf(stdout, " result error, sent: %c, got: %c\n", c, cr); return -1; }