OpenMP/Fortran: Fixes for {use,is}_device_ptr
authorTobias Burnus <tobias@codesourcery.com>
Tue, 19 Jan 2021 10:57:34 +0000 (11:57 +0100)
committerTobias Burnus <tobias@codesourcery.com>
Tue, 19 Jan 2021 10:58:21 +0000 (11:58 +0100)
commit049bfd186fae9fb764a3ec04acb20d3eaacda7a3
treeccfc528fa1495feaf59625d72f52ad034f229d37
parent9b8741c98f2876a430c12c85b396d29a87c9c488
OpenMP/Fortran: Fixes for {use,is}_device_ptr

gcc/fortran/ChangeLog:

PR fortran/98476
* openmp.c (resolve_omp_clauses): Change use_device_ptr
to use_device_addr for unless type(c_ptr); check all
list item for is_device_ptr.

gcc/ChangeLog:

PR fortran/98476
* omp-low.c (lower_omp_target): Handle nonpointer is_device_ptr.

libgomp/ChangeLog:

PR fortran/98476
* testsuite/libgomp.fortran/is_device_ptr-1.f90: New test.

gcc/testsuite/ChangeLog:

PR fortran/98476
* gfortran.dg/gomp/map-3.f90: Update expected scan-dump-tree.
* gfortran.dg/gomp/is_device_ptr-2.f90: New test.
* gfortran.dg/gomp/use_device_ptr-1.f90: New test.
gcc/fortran/openmp.c
gcc/omp-low.c
gcc/testsuite/gfortran.dg/gomp/is_device_ptr-2.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/gomp/map-3.f90
gcc/testsuite/gfortran.dg/gomp/use_device_ptr-1.f90 [new file with mode: 0644]
libgomp/testsuite/libgomp.fortran/is_device_ptr-1.f90 [new file with mode: 0644]