[Bug fortran/94813] New: [10 regression] 'libgomp.fortran/use_device_ptr-1.f90' offloading execution test regression

[tschwinge at gcc dot gnu.org]

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

            Bug ID: 94813
           Summary: [10 regression] 'libgomp.fortran/use_device_ptr-1.f90'
                    offloading execution test regression
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Keywords: openmp
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: tschwinge at gcc dot gnu.org
                CC: burnus at gcc dot gnu.org, jakub at gcc dot gnu.org,
                    tkoenig at gcc dot gnu.org
  Target Milestone: ---

The recent commit 06eca1acafa27e19e82dc73927394a7a4d0bdbc5 "Fix PR 93956, wrong
pointer when returned via function" regresses in offloading configurations (at
least gcn, nvptx):

    PASS: libgomp.fortran/use_device_ptr-1.f90   -O0  (test for excess errors)
    [-PASS:-]{+FAIL:+} libgomp.fortran/use_device_ptr-1.f90   -O0  execution
test

... for all torture testing variants.

    Program received signal SIGSEGV, Segmentation fault.
    0x0000000000409976 in omp_device_ptr () at
source-gcc/libgomp/testsuite/libgomp.fortran/use_device_ptr-1.f90:508
    508       call copy3_array1(AptrA, BptrB)
    (gdb) bt
    #0  0x0000000000409976 in omp_device_ptr () at
source-gcc/libgomp/testsuite/libgomp.fortran/use_device_ptr-1.f90:508
    #1  0x000000000040b564 in main (argc=1, argv=0x7fffffffd971) at
source-gcc/libgomp/testsuite/libgomp.fortran/use_device_ptr-1.f90:423
    #2  0x00007ffff70f5b97 in __libc_start_main () from
/lib/x86_64-linux-gnu/libc.so.6
    #3  0x0000000000400c6a in _start ()

No regression seen for host-fallback execution.