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

/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dfrontend-passes.c2883 gfc_expr *matrix_a, *matrix_b; local
2922 matrix_b = check_conjg_transpose_variable (b->expr, &conjg_b, &transpose_b);
2923 if (matrix_b != NULL)
2925 if (matrix_b->expr_type == EXPR_VARIABLE
2926 && (gfc_check_dependency (matrix_b, expr1, true)
2927 || gfc_has_dimen_vector_ref (matrix_b)))
3827 gfc_expr *matrix_a, *matrix_b; local
3880 matrix_b = check_conjg_transpose_variable (b->expr, &conjg_b, &transpose_b);
3881 if (matrix_b == NULL)
3885 || gfc_has_dimen_vector_ref (matrix_b))
4377 gfc_expr *matrix_a, *matrix_b; local
[all...]
H A Dcheck.c3771 gfc_check_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) argument
3781 if ((matrix_b->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_b->ts))
3785 gfc_current_intrinsic, &matrix_b->where);
3789 if ((matrix_a->ts.type == BT_LOGICAL && gfc_numeric_ts (&matrix_b->ts))
3790 || (gfc_numeric_ts (&matrix_a->ts) && matrix_b->ts.type == BT_LOGICAL))
3794 gfc_typename(&matrix_a->ts), gfc_typename(&matrix_b->ts));
3801 if (!rank_check (matrix_b, 1, 2))
3803 /* Check for case matrix_a has shape(m), matrix_b has shape (m, k). */
3804 if (!identical_dimen_shape (matrix_a, 0, matrix_b,
[all...]
H A Dsimplify.c360 gfc_expr *matrix_b, int stride_b, int offset_b,
375 b = gfc_constructor_lookup_expr (matrix_b->value.constructor, offset_b);
406 b = gfc_constructor_lookup_expr (matrix_b->value.constructor, offset_b);
4636 gfc_simplify_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) argument
4643 || !is_constant_array_expr (matrix_b))
4647 if (matrix_a->ts.type != matrix_b->ts.type)
4654 e.value.op.op2 = matrix_b;
4664 if (matrix_a->rank == 1 && matrix_b->rank == 2)
4667 result_columns = mpz_get_si (matrix_b->shape[1]);
4669 stride_b = mpz_get_si (matrix_b
359 compute_dot_product(gfc_expr *matrix_a, int stride_a, int offset_a, gfc_expr *matrix_b, int stride_b, int offset_b, bool conj_a) argument
[all...]
/netbsd-current/external/gpl3/gcc/dist/gcc/fortran/
H A Dfrontend-passes.cc3149 gfc_expr *matrix_a, *matrix_b; local
3188 matrix_b = check_conjg_transpose_variable (b->expr, &conjg_b, &transpose_b);
3189 if (matrix_b != NULL)
3191 if (matrix_b->expr_type == EXPR_VARIABLE
3192 && (gfc_check_dependency (matrix_b, expr1, true)
3193 || gfc_has_dimen_vector_ref (matrix_b)))
4105 gfc_expr *matrix_a, *matrix_b; local
4158 matrix_b = check_conjg_transpose_variable (b->expr, &conjg_b, &transpose_b);
4159 if (matrix_b == NULL)
4163 || gfc_has_dimen_vector_ref (matrix_b))
4657 gfc_expr *matrix_a, *matrix_b; local
[all...]
H A Dcheck.cc3780 gfc_check_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) argument
3790 if ((matrix_b->ts.type != BT_LOGICAL) && !gfc_numeric_ts (&matrix_b->ts))
3794 gfc_current_intrinsic, &matrix_b->where);
3798 if ((matrix_a->ts.type == BT_LOGICAL && gfc_numeric_ts (&matrix_b->ts))
3799 || (gfc_numeric_ts (&matrix_a->ts) && matrix_b->ts.type == BT_LOGICAL))
3803 gfc_typename(&matrix_a->ts), gfc_typename(&matrix_b->ts));
3810 if (!rank_check (matrix_b, 1, 2))
3812 /* Check for case matrix_a has shape(m), matrix_b has shape (m, k). */
3813 if (!identical_dimen_shape (matrix_a, 0, matrix_b,
[all...]
H A Dsimplify.cc392 gfc_expr *matrix_b, int stride_b, int offset_b,
407 b = gfc_constructor_lookup_expr (matrix_b->value.constructor, offset_b);
438 b = gfc_constructor_lookup_expr (matrix_b->value.constructor, offset_b);
4713 gfc_simplify_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) argument
4720 || !is_constant_array_expr (matrix_b))
4724 if (matrix_a->ts.type != matrix_b->ts.type)
4731 e.value.op.op2 = matrix_b;
4741 if (matrix_a->rank == 1 && matrix_b->rank == 2)
4744 result_columns = mpz_get_si (matrix_b->shape[1]);
4746 stride_b = mpz_get_si (matrix_b
391 compute_dot_product(gfc_expr *matrix_a, int stride_a, int offset_a, gfc_expr *matrix_b, int stride_b, int offset_b, bool conj_a) argument
[all...]

Completed in 323 milliseconds