Home
last modified time | relevance | path

Searched refs:matrix_b (Results 1 – 6 of 6) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dfrontend-passes.cc3149 gfc_expr *matrix_a, *matrix_b; in matmul_temp_args() local
3188 matrix_b = check_conjg_transpose_variable (b->expr, &conjg_b, &transpose_b); in matmul_temp_args()
3189 if (matrix_b != NULL) in matmul_temp_args()
3191 if (matrix_b->expr_type == EXPR_VARIABLE in matmul_temp_args()
3192 && (gfc_check_dependency (matrix_b, expr1, true) in matmul_temp_args()
3193 || gfc_has_dimen_vector_ref (matrix_b))) in matmul_temp_args()
4105 gfc_expr *matrix_a, *matrix_b; in inline_matmul_assign() local
4158 matrix_b = check_conjg_transpose_variable (b->expr, &conjg_b, &transpose_b); in inline_matmul_assign()
4159 if (matrix_b == NULL) in inline_matmul_assign()
4163 || gfc_has_dimen_vector_ref (matrix_b)) in inline_matmul_assign()
[all …]
H A Dcheck.cc3780 gfc_check_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) in gfc_check_matmul() argument
3790 if ((matrix_b->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_b->ts)) in gfc_check_matmul()
3794 gfc_current_intrinsic, &matrix_b->where); 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()
3803 gfc_typename(&matrix_a->ts), gfc_typename(&matrix_b->ts)); in gfc_check_matmul()
3810 if (!rank_check (matrix_b, 1, 2)) in gfc_check_matmul()
3813 if (!identical_dimen_shape (matrix_a, 0, matrix_b, 0)) in gfc_check_matmul()
3824 if (matrix_b->rank != 2) in gfc_check_matmul()
3826 if (!rank_check (matrix_b, 1, 1)) in gfc_check_matmul()
[all …]
H A Dsimplify.cc392 gfc_expr *matrix_b, int stride_b, int offset_b, in compute_dot_product() argument
407 b = gfc_constructor_lookup_expr (matrix_b->value.constructor, offset_b); in compute_dot_product()
438 b = gfc_constructor_lookup_expr (matrix_b->value.constructor, offset_b); in compute_dot_product()
4744 gfc_simplify_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) in gfc_simplify_matmul() argument
4751 || !is_constant_array_expr (matrix_b)) in gfc_simplify_matmul()
4755 if (matrix_a->ts.type != matrix_b->ts.type) in gfc_simplify_matmul()
4762 e.value.op.op2 = matrix_b; in gfc_simplify_matmul()
4772 if (matrix_a->rank == 1 && matrix_b->rank == 2) in gfc_simplify_matmul()
4775 result_columns = mpz_get_si (matrix_b->shape[1]); in gfc_simplify_matmul()
4777 stride_b = mpz_get_si (matrix_b->shape[0]); in gfc_simplify_matmul()
[all …]
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dfrontend-passes.c2883 gfc_expr *matrix_a, *matrix_b; in matmul_temp_args() local
2922 matrix_b = check_conjg_transpose_variable (b->expr, &conjg_b, &transpose_b); in matmul_temp_args()
2923 if (matrix_b != NULL) in matmul_temp_args()
2925 if (matrix_b->expr_type == EXPR_VARIABLE in matmul_temp_args()
2926 && (gfc_check_dependency (matrix_b, expr1, true) in matmul_temp_args()
2927 || gfc_has_dimen_vector_ref (matrix_b))) in matmul_temp_args()
3827 gfc_expr *matrix_a, *matrix_b; in inline_matmul_assign() local
3880 matrix_b = check_conjg_transpose_variable (b->expr, &conjg_b, &transpose_b); in inline_matmul_assign()
3881 if (matrix_b == NULL) in inline_matmul_assign()
3885 || gfc_has_dimen_vector_ref (matrix_b)) in inline_matmul_assign()
[all …]
H A Dcheck.c3771 gfc_check_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) in gfc_check_matmul() argument
3781 if ((matrix_b->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_b->ts)) in gfc_check_matmul()
3785 gfc_current_intrinsic, &matrix_b->where); 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()
3794 gfc_typename(&matrix_a->ts), gfc_typename(&matrix_b->ts)); in gfc_check_matmul()
3801 if (!rank_check (matrix_b, 1, 2)) in gfc_check_matmul()
3804 if (!identical_dimen_shape (matrix_a, 0, matrix_b, 0)) in gfc_check_matmul()
3815 if (matrix_b->rank != 2) in gfc_check_matmul()
3817 if (!rank_check (matrix_b, 1, 1)) in gfc_check_matmul()
[all …]
H A Dsimplify.c360 gfc_expr *matrix_b, int stride_b, int offset_b, in compute_dot_product() argument
375 b = gfc_constructor_lookup_expr (matrix_b->value.constructor, offset_b); in compute_dot_product()
406 b = gfc_constructor_lookup_expr (matrix_b->value.constructor, offset_b); in compute_dot_product()
4636 gfc_simplify_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) in gfc_simplify_matmul() argument
4643 || !is_constant_array_expr (matrix_b)) in gfc_simplify_matmul()
4647 if (matrix_a->ts.type != matrix_b->ts.type) in gfc_simplify_matmul()
4654 e.value.op.op2 = matrix_b; in gfc_simplify_matmul()
4664 if (matrix_a->rank == 1 && matrix_b->rank == 2) in gfc_simplify_matmul()
4667 result_columns = mpz_get_si (matrix_b->shape[1]); in gfc_simplify_matmul()
4669 stride_b = mpz_get_si (matrix_b->shape[0]); in gfc_simplify_matmul()
[all …]