Bug in FORALL?

[Paul Thomas]

Dominique,
>   forall (i = 1:5, j = 1:5, k = 1:5, any (a (i, j, k, :) .gt. 6))
>     forall (l = 1:5, any (a (:, :, :, l) .lt. 2))
>       a (i, j, k, l) = i - j + k - l
>     end forall
>   end forall
>
> end
>   
A temporary workaround is to enclose the mask expression in 
parentheses.  Oddly, doing this in match_forall_header, using 
gfc_get_parentheses, does not cure the problem, I am at a loss to 
explain why.

Thank you for the report Dominique, that's an urgent one.   Could you 
post a PR, please?

Paul