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 | |
| 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')
| -rw-r--r-- | gcc/fortran/openmp.c | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/map-5.f90 | 13 |
2 files changed, 14 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 () == '%')) { diff --git a/gcc/testsuite/gfortran.dg/gomp/map-5.f90 b/gcc/testsuite/gfortran.dg/gomp/map-5.f90 new file mode 100644 index 0000000..2b4b341 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/gomp/map-5.f90 @@ -0,0 +1,13 @@ +implicit none +type t + integer :: b(5) +end type t +integer :: a(5), x, y(5) +type(t) :: b +!$omp target enter data map( to: a (:) ) +!$omp target enter data map( to: b % b ) +!$omp target enter data map( to: a(:) ) +!$omp target depend(out: y (2)) nowait +!$omp end target + +end |