Home
last modified time | relevance | path

Searched refs:gfc_numeric_ts (Results 1 – 22 of 22) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dcheck.cc511 if (gfc_numeric_ts (&e->ts)) in numeric_check()
519 && gfc_numeric_ts (&e->symtree->n.sym->ts)) in numeric_check()
3782 if ((matrix_a->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_a->ts)) in gfc_check_matmul()
3790 if ((matrix_b->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_b->ts)) in gfc_check_matmul()
3798 if ((matrix_a->ts.type == BT_LOGICAL && gfc_numeric_ts (&matrix_b->ts)) in gfc_check_matmul()
3799 || (gfc_numeric_ts (&matrix_a->ts) && matrix_b->ts.type == BT_LOGICAL)) in gfc_check_matmul()
H A Darith.cc1546 if (!gfc_numeric_ts (&op1->ts)) in eval_intrinsic()
1599 if (!gfc_numeric_ts (&op1->ts) || !gfc_numeric_ts (&op2->ts)) in eval_intrinsic()
H A Darray.cc1327 if (gfc_numeric_ts (&c->expr->ts) in gfc_match_array_constructor()
1349 if (gfc_numeric_ts (&ts)) in gfc_match_array_constructor()
H A Dinterface.cc959 || (gfc_numeric_ts (&dummy_args->sym->ts) in gfc_check_operator_interface()
960 && gfc_numeric_ts (&dummy_args->next->sym->ts)))) in gfc_check_operator_interface()
4710 || (gfc_numeric_ts (&lhs->ts) && gfc_numeric_ts (&rhs->ts)))) in gfc_extend_assign()
H A Dexpr.cc897 gfc_numeric_ts (gfc_typespec *ts) in gfc_numeric_ts() function
3860 if ((gfc_numeric_ts (&lvalue->ts) && gfc_numeric_ts (&rvalue->ts)) in gfc_check_assign()
3864 if (flag_dec_char_conversions && (gfc_numeric_ts (&lvalue->ts) in gfc_check_assign()
H A Dresolve.cc4166 if (gfc_numeric_ts (&op1->ts) && gfc_numeric_ts (&op2->ts)) in resolve_operator()
4331 && op1->ts.type == BT_HOLLERITH && gfc_numeric_ts (&op2->ts)) in resolve_operator()
4335 && gfc_numeric_ts (&op1->ts) && op2->ts.type == BT_HOLLERITH) in resolve_operator()
4338 if (gfc_numeric_ts (&op1->ts) && gfc_numeric_ts (&op2->ts)) in resolve_operator()
11049 if ((gfc_numeric_ts (&lhs->ts) || lhs->ts.type == BT_LOGICAL) in resolve_ordinary_assign()
H A Dgfortran.h3626 int gfc_numeric_ts (gfc_typespec *);
H A Dprimary.cc1345 if (!gfc_numeric_ts (&sym->value->ts)) in match_sym_complex_part()
H A Dintrinsic.cc5258 && (gfc_numeric_ts (ts) || ts->type == BT_LOGICAL)) in gfc_convert_type_warn()
5287 && (gfc_numeric_ts (ts) || ts->type == BT_LOGICAL)) in gfc_convert_type_warn()
H A Dopenmp.cc4153 if (!gfc_numeric_ts (ts) && ts->type != BT_LOGICAL) in gfc_omp_udr_predef()
7256 if (!gfc_numeric_ts (&n->sym->ts)) in resolve_omp_clauses()
H A Ddecl.cc3123 && (gfc_numeric_ts (&initializer->ts) in variable_decl()
4981 else if (gfc_numeric_ts(&ts) || ts.type == BT_LOGICAL) in gfc_match_implicit()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dcheck.c511 if (gfc_numeric_ts (&e->ts)) in numeric_check()
519 && gfc_numeric_ts (&e->symtree->n.sym->ts)) in numeric_check()
3773 if ((matrix_a->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_a->ts)) in gfc_check_matmul()
3781 if ((matrix_b->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_b->ts)) in gfc_check_matmul()
3789 if ((matrix_a->ts.type == BT_LOGICAL && gfc_numeric_ts (&matrix_b->ts)) in gfc_check_matmul()
3790 || (gfc_numeric_ts (&matrix_a->ts) && matrix_b->ts.type == BT_LOGICAL)) in gfc_check_matmul()
H A Darith.c1499 if (!gfc_numeric_ts (&op1->ts)) in eval_intrinsic()
1552 if (!gfc_numeric_ts (&op1->ts) || !gfc_numeric_ts (&op2->ts)) in eval_intrinsic()
H A Darray.c1315 if (gfc_numeric_ts (&c->expr->ts) in gfc_match_array_constructor()
1337 if (gfc_numeric_ts (&ts)) in gfc_match_array_constructor()
H A Dinterface.c948 || (gfc_numeric_ts (&dummy_args->sym->ts) in gfc_check_operator_interface()
949 && gfc_numeric_ts (&dummy_args->next->sym->ts)))) in gfc_check_operator_interface()
4507 || (gfc_numeric_ts (&lhs->ts) && gfc_numeric_ts (&rhs->ts)))) in gfc_extend_assign()
H A Dexpr.c889 gfc_numeric_ts (gfc_typespec *ts) in gfc_numeric_ts() function
3828 if ((gfc_numeric_ts (&lvalue->ts) && gfc_numeric_ts (&rvalue->ts)) in gfc_check_assign()
3832 if (flag_dec_char_conversions && (gfc_numeric_ts (&lvalue->ts) in gfc_check_assign()
H A Dresolve.c4080 if (gfc_numeric_ts (&op1->ts) && gfc_numeric_ts (&op2->ts)) in resolve_operator()
4245 && op1->ts.type == BT_HOLLERITH && gfc_numeric_ts (&op2->ts)) in resolve_operator()
4249 && gfc_numeric_ts (&op1->ts) && op2->ts.type == BT_HOLLERITH) in resolve_operator()
4252 if (gfc_numeric_ts (&op1->ts) && gfc_numeric_ts (&op2->ts)) in resolve_operator()
10892 if ((gfc_numeric_ts (&lhs->ts) || lhs->ts.type == BT_LOGICAL) in resolve_ordinary_assign()
H A Dgfortran.h3335 int gfc_numeric_ts (gfc_typespec *);
H A Dopenmp.c2860 if (!gfc_numeric_ts (ts) && ts->type != BT_LOGICAL) in gfc_omp_udr_predef()
4783 if (!gfc_numeric_ts (&n->sym->ts))
H A Dprimary.c1366 if (!gfc_numeric_ts (&sym->value->ts)) in match_sym_complex_part()
H A Dintrinsic.c5215 && (gfc_numeric_ts (ts) || ts->type == BT_LOGICAL)) in gfc_convert_type_warn()
5244 && (gfc_numeric_ts (ts) || ts->type == BT_LOGICAL)) in gfc_convert_type_warn()
H A Ddecl.c3025 && (gfc_numeric_ts (&initializer->ts) in variable_decl()