diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-04-28 22:35:06 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-04-28 22:36:30 +0200 |
| commit | e4aefface2a0e34d84b85844b11652eb28f2cf0c (patch) | |
| tree | cdb8f0128dd8cd0e8438d3ca4de60c017ea85d72 /gcc/fortran/openmp.c | |
| parent | c99f3747131377956e3bd8e393911c959ef5ff34 (diff) | |
| download | gcc-e4aefface2a0e34d84b85844b11652eb28f2cf0c.zip gcc-e4aefface2a0e34d84b85844b11652eb28f2cf0c.tar.gz gcc-e4aefface2a0e34d84b85844b11652eb28f2cf0c.tar.bz2 | |
Fortran/OpenMP: Fix var-list expr parsing with array/dt
gcc/fortran/ChangeLog:
* openmp.c (gfc_match_omp_variable_list): Gobble whitespace before
checking whether a '%' or parenthesis-open follows as next character.
gcc/testsuite/ChangeLog:
* gfortran.dg/gomp/map-5.f90: New test.
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index a1b0572..7eeabff 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -261,6 +261,7 @@ gfc_match_omp_variable_list (const char *str, gfc_omp_namelist **list, case MATCH_YES: gfc_expr *expr; expr = NULL; + gfc_gobble_whitespace (); if ((allow_sections && gfc_peek_ascii_char () == '(') || (allow_derived && gfc_peek_ascii_char () == '%')) { |