On 28.04.21 15:41, Jakub Jelinek wrote:
>> @@ -261,6 +263,7 @@ gfc_match_omp_variable_list (const char *str, gfc_omp_namelist **list,
>> +      gfc_gobble_whitespace ();
>>        if ((allow_sections && gfc_peek_ascii_char () == '(')
>>            || (allow_derived && gfc_peek_ascii_char () == '%')
> Is this change specific to depend/affinity or iterators?
> If not, shouldn't it go in separately and with a testcase that shows when it
> is needed?

I encountered it when writing a testcase - and the testcase was using it.
However, if you think it makes sense to have it separately.

It fixes the issue:

     7 | !$omp target enter data map( to: a (:) )
       |                                   1
Error: Syntax error in OpenMP variable list at (1)

OK for mainline?

Tobias

-----------------
Mentor Graphics (Deutschland) GmbH, Arnulfstrasse 201, 80634 München Registergericht München HRB 106955, Geschäftsführer: Thomas Heurung, Frank Thürauf