Searched refs:case_expr (Results 1 - 2 of 2) sorted by relevance

/haiku-buildtools/gcc/gcc/fortran/
H A Dresolve.c7606 validate_case_label_expr (gfc_expr *e, gfc_expr *case_expr) argument
7610 if (e->ts.type != case_expr->ts.type)
7613 &e->where, gfc_basic_typename (case_expr->ts.type));
7621 if (case_expr->ts.type == BT_CHARACTER && e->ts.kind != case_expr->ts.kind)
7624 &e->where, case_expr->ts.kind);
7631 if (e->ts.kind != case_expr->ts.kind)
7632 gfc_convert_type_warn (e, &case_expr->ts, 2, 0);
7660 easily work around that here: The case_expr for a "real" SELECT CASE
7662 we have to do is make sure that the case_expr i
7669 gfc_expr *case_expr; local
[all...]
/haiku-buildtools/legacy/gcc/gcc/ch/
H A Dparse.c3329 tree case_expr;
3367 case_expr =
3371 case_expr = build_chill_case_expr (selector_list, case_alt_list, else_expr);
3373 return case_expr;
3328 tree case_expr; local

Completed in 159 milliseconds