Thanks for catching that, Steve, and for responding, Alessandro.
Anything else?
Damian
On January 19, 2018 at 9:17:03 AM, Alessandro Fanfarillo (elfa...@ucar.edu)
wrote:
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
