[FORTRAN PATCH] PR30400: ANY not accepted as FORALL mask

[Tobias Schlüter]

Paul Thomas wrote:
> Index: gcc/fortran/match.c
> ===================================================================
> *** gcc/fortran/match.c	(revision 121864)
> --- gcc/fortran/match.c	(working copy)
> *************** match_forall_iterator (gfc_forall_iterat
> *** 3370,3376 ****
>     where = gfc_current_locus;
>     iter = gfc_getmem (sizeof (gfc_forall_iterator));
>   
> !   m = gfc_match_variable (&iter->var, 0);
>     if (m != MATCH_YES)
>       goto cleanup;
>   
> --- 3370,3376 ----
>     where = gfc_current_locus;
>     iter = gfc_getmem (sizeof (gfc_forall_iterator));
>   
> !   m = gfc_match_expr (&iter->var);
>     if (m != MATCH_YES)
>       goto cleanup;


Maybe I'm missing it, but I don't see how that catches ... um ... 
expressions, e.g. FORALL(2+3=i:j)

- Tobi