Message ID | f526c14f-1007-11c2-ff99-069454dc5e6d@netcologne.de |
---|---|
State | New |
Headers | show |
Index: frontend-passes.c =================================================================== --- frontend-passes.c (Revision 248467) +++ frontend-passes.c (Arbeitskopie) @@ -2447,7 +2447,7 @@ matmul_lhs_realloc (gfc_expr *c, gfc_expr *a, gfc_ break; case A1B2: - ar->start[0] = get_array_inq_function (GFC_ISYM_SIZE, b, 1); + ar->start[0] = get_array_inq_function (GFC_ISYM_SIZE, b, 2); cond = build_logical_expr (INTRINSIC_NE, get_array_inq_function (GFC_ISYM_SIZE, c, 1), get_array_inq_function (GFC_ISYM_SIZE, b, 2));