HomeSort by: relevance | last modified time | path
    Searched defs:case_expr (Results 1 - 2 of 2) sorted by relevancy

  /src/external/gpl3/gcc/dist/gcc/fortran/
resolve.cc 9027 validate_case_label_expr (gfc_expr *e, gfc_expr *case_expr)
9031 if (e->ts.type != case_expr->ts.type)
9034 &e->where, gfc_basic_typename (case_expr->ts.type));
9042 if (case_expr->ts.type == BT_CHARACTER && e->ts.kind != case_expr->ts.kind)
9045 &e->where, case_expr->ts.kind);
9052 if (e->ts.kind != case_expr->ts.kind)
9053 gfc_convert_type_warn (e, &case_expr->ts, 2, 0);
9081 easily work around that here: The case_expr for a "real" SELECT CASE
9083 we have to do is make sure that the case_expr is a scalar intege
9090 gfc_expr *case_expr; local
    [all...]
  /src/external/gpl3/gcc.old/dist/gcc/fortran/
resolve.cc 8685 validate_case_label_expr (gfc_expr *e, gfc_expr *case_expr)
8689 if (e->ts.type != case_expr->ts.type)
8692 &e->where, gfc_basic_typename (case_expr->ts.type));
8700 if (case_expr->ts.type == BT_CHARACTER && e->ts.kind != case_expr->ts.kind)
8703 &e->where, case_expr->ts.kind);
8710 if (e->ts.kind != case_expr->ts.kind)
8711 gfc_convert_type_warn (e, &case_expr->ts, 2, 0);
8739 easily work around that here: The case_expr for a "real" SELECT CASE
8741 we have to do is make sure that the case_expr is a scalar intege
8748 gfc_expr *case_expr; local
    [all...]

Completed in 22 milliseconds