Yes, definitively ar->team. On Fri, Jan 19, 2018 at 8:36 AM, Steve Kargl <s...@troutmask.apl.washington.edu> wrote: > index 882fe577b76..b4baf5be554 100644 > --- a/gcc/fortran/array.c > +++ b/gcc/fortran/array.c > @@ -158,6 +158,7 @@ gfc_match_array_ref (gfc_array_ref *ar, gfc_array_spec > *as, int init, > bool matched_bracket = false; > gfc_expr *tmp; > bool stat_just_seen = false; > + bool team_just_seen = false; > > memset (ar, '\0', sizeof (*ar)); > > @@ -230,8 +231,21 @@ coarray: > if (m == MATCH_ERROR) > return MATCH_ERROR; > > + team_just_seen = false; > stat_just_seen = false; > - if (gfc_match(" , stat = %e",&tmp) == MATCH_YES && ar->stat == NULL) > + if (gfc_match (" , team = %e", &tmp) == MATCH_YES && ar->stat == NULL) > > > Is the 2nd ar->stat suppose to be ar->team? > > -- > Steve
-- Alessandro Fanfarillo, Ph.D. Postdoctoral Researcher National Center for Atmospheric Research Mesa Lab, Boulder, CO, USA 303-497-1229