aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/arith.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/fortran/arith.c')
-rw-r--r--gcc/fortran/arith.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c
index 10b3e5c..a40163e 100644
--- a/gcc/fortran/arith.c
+++ b/gcc/fortran/arith.c
@@ -2534,8 +2534,7 @@ hollerith2representation (gfc_expr *result, gfc_expr *src)
static void
character2representation (gfc_expr *result, gfc_expr *src)
{
- size_t src_len, result_len;
- int i;
+ size_t src_len, result_len, i;
src_len = src->value.character.length;
gfc_target_expr_size (result, &result_len);