diff options
Diffstat (limited to 'libgfortran/intrinsics/unpack_generic.c')
| -rw-r--r-- | libgfortran/intrinsics/unpack_generic.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c index a457988095a..2dcef78001e 100644 --- a/libgfortran/intrinsics/unpack_generic.c +++ b/libgfortran/intrinsics/unpack_generic.c @@ -403,15 +403,13 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector, gfc_array_char tmp; index_type type_size; - index_type size; if (unlikely(compile_options.bounds_check)) unpack_bounds (ret, vector, mask, NULL); type_size = GFC_DTYPE_TYPE_SIZE (vector); - size = GFC_DESCRIPTOR_SIZE (vector); - switch(type_size) + switch (type_size) { case GFC_DTYPE_LOGICAL_1: case GFC_DTYPE_INTEGER_1: |