diff options
Diffstat (limited to 'gcc/fortran/coarray.cc')
| -rw-r--r-- | gcc/fortran/coarray.cc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/coarray.cc b/gcc/fortran/coarray.cc index f53de0b..7058325 100644 --- a/gcc/fortran/coarray.cc +++ b/gcc/fortran/coarray.cc @@ -265,6 +265,8 @@ move_coarray_ref (gfc_ref **from, gfc_expr *expr) (*from)->u.ar.stat = nullptr; to->u.ar.team = (*from)->u.ar.team; (*from)->u.ar.team = nullptr; + to->u.ar.team_type = (*from)->u.ar.team_type; + (*from)->u.ar.team_type = TEAM_UNSET; for (i = 0; i < to->u.ar.dimen; ++i) { to->u.ar.start[i] = nullptr; |