[Bug libgomp/94290] New: [gfortran] OpenMP target teams distribute default firstprivate causes failure to map back values from device

[jhdavis at udel dot edu]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=94290

            Bug ID: 94290
           Summary: [gfortran] OpenMP target teams distribute default
                    firstprivate causes failure to map back values from
                    device
           Product: gcc
           Version: 9.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libgomp
          Assignee: unassigned at gcc dot gnu.org
          Reporter: jhdavis at udel dot edu
                CC: jakub at gcc dot gnu.org
  Target Milestone: ---

Created attachment 48099
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=48099&action=edit
Target teams distribute default(firstprivate) reproducible

Hello,

This bug report is from the SOLLVE team regarding default(firstprivate) in an
offloading construct.

--- SUMMARY ---
On a target teams distribute clause the default(firstprivate) clause we are
seeing a failure to map back changes made on the device. In the attached
reproducible we test both the 'private' and 'first' aspects of the clause for
both scalars and arrays on the device and then check the results on the host.
Changing the default(firstprivate) in both parts of the test to
firstprivate(privatized, privatized_array) causes the test to work as expected.
The version of the test in our suite is availible here:
https://github.com/SOLLVE/sollve_vv/blob/d031050b40edf3cd261219d649e932b4f4743ff6/tests/4.5/target_teams_distribute/test_target_teams_distribute_default_firstprivate.F90

--- DETAILS ---
gfortran version: 9.2.0

System: x86_64-pc-linux-gnu (Summit)

Config options: 
    ../gcc9.2/configure --enable-offload-targets=nvptx-none
--with-cuda-driver-include=/software/apps/cuda/9.2//include
--with-cuda-driver-lib=/software/apps/cuda/9.2//lib64 --disable-bootstrap
--disable-multilib --enable-languages=c,c++,fortran,lto
--prefix=/software/apps/gcc/9.2

No compiler output. Runtime output:
 test_firstprivate_private gave        1024 expected 0
 test_firstprivate_first gave        1024 expected 0

Command line to trigger bug:
    gfortran -fopenmp -ffree-line-length-none default_firstprivate_bug.F90 -o
default_firstprivate_bug.F90.o
    ./default_firstprivate_bug.F90.o

Best,

Josh Davis