Searched refs:vector_b (Results 1 – 4 of 4) sorted by relevance
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | check.cc | 2626 gfc_check_dot_product (gfc_expr *vector_a, gfc_expr *vector_b) in gfc_check_dot_product() argument
2631 if (!type_check (vector_b, 1, BT_LOGICAL)) in gfc_check_dot_product()
2638 if (!numeric_check (vector_b, 1)) in gfc_check_dot_product()
2652 if (!rank_check (vector_b, 1, 1)) in gfc_check_dot_product()
2655 if (! identical_dimen_shape (vector_a, 0, vector_b, 0)) in gfc_check_dot_product()
|
| H A D | simplify.cc | 2381 gfc_simplify_dot_product (gfc_expr *vector_a, gfc_expr *vector_b) in gfc_simplify_dot_product() argument
2394 || !is_constant_array_expr (vector_b)) 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 D | check.c | 2622 gfc_check_dot_product (gfc_expr *vector_a, gfc_expr *vector_b) in gfc_check_dot_product() argument
2627 if (!type_check (vector_b, 1, BT_LOGICAL)) in gfc_check_dot_product()
2634 if (!numeric_check (vector_b, 1)) in gfc_check_dot_product()
2648 if (!rank_check (vector_b, 1, 1)) in gfc_check_dot_product()
2651 if (! identical_dimen_shape (vector_a, 0, vector_b, 0)) in gfc_check_dot_product()
|
| H A D | simplify.c | 2348 gfc_simplify_dot_product (gfc_expr *vector_a, gfc_expr *vector_b) in gfc_simplify_dot_product() argument
2361 || !is_constant_array_expr (vector_b)) in gfc_simplify_dot_product()
2364 return compute_dot_product (vector_a, 1, 0, vector_b, 1, 0, true); in gfc_simplify_dot_product()
|