diff options
Diffstat (limited to 'gcc/fortran/intrinsic.cc')
| -rw-r--r-- | gcc/fortran/intrinsic.cc | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.cc b/gcc/fortran/intrinsic.cc index 62c349d..f7cbb4b 100644 --- a/gcc/fortran/intrinsic.cc +++ b/gcc/fortran/intrinsic.cc @@ -165,6 +165,7 @@ gfc_get_intrinsic_function_symbol (gfc_expr *expr) sym->as = gfc_get_array_spec (); sym->as->type = AS_ASSUMED_SHAPE; sym->as->rank = expr->rank; + sym->as->corank = expr->corank; } return sym; } @@ -5382,6 +5383,7 @@ gfc_convert_type_warn (gfc_expr *expr, gfc_typespec *ts, int eflag, int wflag, new_expr->where = old_where; new_expr->ts = *ts; new_expr->rank = rank; + new_expr->corank = expr->corank; new_expr->shape = gfc_copy_shape (shape, rank); gfc_get_ha_sym_tree (sym->name, &new_expr->symtree); @@ -5457,6 +5459,7 @@ gfc_convert_chartype (gfc_expr *expr, gfc_typespec *ts) new_expr->where = old_where; new_expr->ts = *ts; new_expr->rank = rank; + new_expr->corank = expr->corank; new_expr->shape = gfc_copy_shape (shape, rank); gfc_get_ha_sym_tree (sym->name, &new_expr->symtree); |