* eval.c (evaluate_subexp_standard): Use value_subscripted_rvalue for

	multi_f77_subscript to support values from registers.
	* valarith.c (value_subscripted_rvalue): Remove prototype and static.
	* value.h (value_subscripted_rvalue): Add prototype.

	* f-typeprint.c (f_type_print_base): Add support for TYPE_CODE_UNION.
	Fix output.
	* f-valprint.c (f_val_print): Likewise.

1 files changed, 1 insertions, 1 deletions

diff --git a/gdb/eval.c b/gdb/eval.c
index 79defeb..8a0cd87 100644
--- a/gdb/eval.c
+++ b/gdb/eval.c
@@ -1720,7 +1720,7 @@ evaluate_subexp_standard (struct type *expect_type,
 	   returns the correct type value */
 
 	deprecated_set_value_type (arg1, tmp_type);
-	return value_ind (value_add (value_coerce_array (arg1), arg2));
+	return value_subscripted_rvalue (arg1, arg2, 0);
       }
 
     case BINOP_LOGICAL_AND: