diff options
Diffstat (limited to 'gcc-4.8/gcc/fortran/trans-intrinsic.c')
-rw-r--r-- | gcc-4.8/gcc/fortran/trans-intrinsic.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc-4.8/gcc/fortran/trans-intrinsic.c b/gcc-4.8/gcc/fortran/trans-intrinsic.c index ddd9eaea5..273c86ff4 100644 --- a/gcc-4.8/gcc/fortran/trans-intrinsic.c +++ b/gcc-4.8/gcc/fortran/trans-intrinsic.c @@ -4684,9 +4684,11 @@ gfc_conv_intrinsic_index_scan_verify (gfc_se * se, gfc_expr * expr, static void gfc_conv_intrinsic_ichar (gfc_se * se, gfc_expr * expr) { - tree args[2], type, pchartype; + tree args[3], type, pchartype; + int nargs; - gfc_conv_intrinsic_function_args (se, expr, args, 2); + nargs = gfc_intrinsic_argument_list_length (expr); + gfc_conv_intrinsic_function_args (se, expr, args, nargs); gcc_assert (POINTER_TYPE_P (TREE_TYPE (args[1]))); pchartype = gfc_get_pchar_type (expr->value.function.actual->expr->ts.kind); args[1] = fold_build1_loc (input_location, NOP_EXPR, pchartype, args[1]); |