Searched refs:matrix_b (Results 1 - 6 of 6) sorted by relevance
/netbsd-current/external/gpl3/gcc.old/dist/gcc/fortran/ |
H A D | frontend-passes.c | 2883 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 D | check.c | 3771 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 D | simplify.c | 360 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 D | frontend-passes.cc | 3149 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 D | check.cc | 3780 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 D | simplify.cc | 392 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