Home
last modified time | relevance | path

Searched refs:vector_a (Results 1 – 4 of 4) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dcheck.cc2626 gfc_check_dot_product (gfc_expr *vector_a, gfc_expr *vector_b) in gfc_check_dot_product() argument
2628 switch (vector_a->ts.type) in gfc_check_dot_product()
2645 gfc_current_intrinsic, &vector_a->where); in gfc_check_dot_product()
2649 if (!rank_check (vector_a, 0, 1)) in gfc_check_dot_product()
2655 if (! identical_dimen_shape (vector_a, 0, vector_b, 0)) in gfc_check_dot_product()
2660 gfc_current_intrinsic_arg[1]->name, &vector_a->where); in gfc_check_dot_product()
H A Dsimplify.cc2381 gfc_simplify_dot_product (gfc_expr *vector_a, gfc_expr *vector_b) in gfc_simplify_dot_product() argument
2385 if (vector_a->shape && mpz_get_si (vector_a->shape[0]) == 0) in gfc_simplify_dot_product()
2387 if (vector_a->ts.type == BT_LOGICAL) in gfc_simplify_dot_product()
2393 if (!is_constant_array_expr (vector_a) in gfc_simplify_dot_product()
2397 return compute_dot_product (vector_a, 1, 0, vector_b, 1, 0, true); in gfc_simplify_dot_product()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dcheck.c2622 gfc_check_dot_product (gfc_expr *vector_a, gfc_expr *vector_b) in gfc_check_dot_product() argument
2624 switch (vector_a->ts.type) in gfc_check_dot_product()
2641 gfc_current_intrinsic, &vector_a->where); in gfc_check_dot_product()
2645 if (!rank_check (vector_a, 0, 1)) in gfc_check_dot_product()
2651 if (! identical_dimen_shape (vector_a, 0, vector_b, 0)) in gfc_check_dot_product()
2656 gfc_current_intrinsic_arg[1]->name, &vector_a->where); in gfc_check_dot_product()
H A Dsimplify.c2348 gfc_simplify_dot_product (gfc_expr *vector_a, gfc_expr *vector_b) in gfc_simplify_dot_product() argument
2352 if (vector_a->shape && mpz_get_si (vector_a->shape[0]) == 0) in gfc_simplify_dot_product()
2354 if (vector_a->ts.type == BT_LOGICAL) in gfc_simplify_dot_product()
2360 if (!is_constant_array_expr (vector_a) in gfc_simplify_dot_product()
2364 return compute_dot_product (vector_a, 1, 0, vector_b, 1, 0, true); in gfc_simplify_dot_product()