Searched refs:case_expr (Results 1 – 3 of 3) sorted by relevance
| /netbsd-src/usr.bin/xlint/lint1/ |
| H A D | func.c | 400 check_case_label_bitand(const tnode_t *case_expr, const tnode_t *switch_expr) in check_case_label_bitand() argument
406 lint_assert(case_expr->tn_op == CON); in check_case_label_bitand()
407 uint64_t case_value = (uint64_t)case_expr->u.value.u.integer; in check_case_label_bitand()
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | resolve.cc | 8685 validate_case_label_expr (gfc_expr *e, gfc_expr *case_expr) in validate_case_label_expr() argument
8689 if (e->ts.type != case_expr->ts.type) in validate_case_label_expr()
8692 &e->where, gfc_basic_typename (case_expr->ts.type)); in validate_case_label_expr()
8700 if (case_expr->ts.type == BT_CHARACTER && e->ts.kind != case_expr->ts.kind) in validate_case_label_expr()
8703 &e->where, case_expr->ts.kind); in validate_case_label_expr()
8710 if (e->ts.kind != case_expr->ts.kind) in validate_case_label_expr()
8711 gfc_convert_type_warn (e, &case_expr->ts, 2, 0); in validate_case_label_expr()
8748 gfc_expr *case_expr; in resolve_select() local
8759 case_expr = code->expr2; in resolve_select()
8760 if (case_expr->ts.type != BT_INTEGER|| case_expr->rank != 0) in resolve_select()
[all …]
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | resolve.c | 8548 validate_case_label_expr (gfc_expr *e, gfc_expr *case_expr) in validate_case_label_expr() argument
8552 if (e->ts.type != case_expr->ts.type) in validate_case_label_expr()
8555 &e->where, gfc_basic_typename (case_expr->ts.type)); in validate_case_label_expr()
8563 if (case_expr->ts.type == BT_CHARACTER && e->ts.kind != case_expr->ts.kind) in validate_case_label_expr()
8566 &e->where, case_expr->ts.kind); in validate_case_label_expr()
8573 if (e->ts.kind != case_expr->ts.kind) in validate_case_label_expr()
8574 gfc_convert_type_warn (e, &case_expr->ts, 2, 0); in validate_case_label_expr()
8611 gfc_expr *case_expr; in resolve_select() local
8622 case_expr = code->expr2; in resolve_select()
8623 if (case_expr->ts.type != BT_INTEGER|| case_expr->rank != 0) in resolve_select()
[all …]
|