On Tue, Dec 10, 2019 at 06:54:19PM +0100, Tobias Burnus wrote: > 2019-12-10 Tobias Burnus <tob...@codesourcery.com> > > gcc/fortran/ > * trans-openmp.c (gfc_omp_check_optional_argument): Always return a > Boolean expression; handle unallocated/disassociated actual arguments > as absent if passed to nonallocatable/nonpointer dummy array arguments. > (gfc_build_cond_assign): Change to assume a Boolean expr not a pointer. > (gfc_omp_finish_clause, gfc_trans_omp_clauses): Assign NULL to generated > array-data variable if the argument is absent. Simplify code as > 'present' is now a Boolean expression. > > libgomp/ > * testsuite/libgomp.fortran/optional-map.f90: Add test for > unallocated/disassociated actual arguments to nonallocatable/nonpointer > dummy arguments; those are/shall be regarded as absent arguments. > * testsuite/libgomp.fortran/use_device_ptr-optional-2.f90: Ditto. > * testsuite/libgomp.fortran/use_device_ptr-optional-3.f90: New.
Ok. Sorry for the delay. Jakub