OpenMP/Fortran: Fix handling of optional is_device_ptr + bind(C) [PR108546]
For is_device_ptr, optional checks should only be done before calling libgomp, afterwards they are NULL either because of absent or, by chance, because it is unallocated or unassociated (for pointers/allocatables). Additionally, it fixes an issue with explicit mapping for 'type(c_ptr)'. PR middle-end/108546 gcc/fortran/ChangeLog: * trans-openmp.cc (gfc_trans_omp_clauses): Fix mapping of type(C_ptr) variables. gcc/ChangeLog: * omp-low.cc (lower_omp_target): Remove optional handling on the receiver side, i.e. inside target (data), for use_device_ptr. libgomp/ChangeLog: * testsuite/libgomp.fortran/is_device_ptr-3.f90: New test. * testsuite/libgomp.fortran/use_device_ptr-optional-4.f90: New test.
Showing
- gcc/fortran/trans-openmp.cc 3 additions, 1 deletiongcc/fortran/trans-openmp.cc
- gcc/omp-low.cc 2 additions, 1 deletiongcc/omp-low.cc
- libgomp/testsuite/libgomp.fortran/is_device_ptr-3.f90 46 additions, 0 deletionslibgomp/testsuite/libgomp.fortran/is_device_ptr-3.f90
- libgomp/testsuite/libgomp.fortran/use_device_ptr-optional-4.f90 53 additions, 0 deletions...p/testsuite/libgomp.fortran/use_device_ptr-optional-4.f90
Loading
Please register or sign in to comment