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

--- Comment #7 from Ron <caplanr at predsci dot com> ---
That last case was using a fortran version of the test code as follows:

        program SMALL_TEST_F
        use openacc
        implicit none
        integer :: v

        v = 0

!$acc parallel copy(v)
        if (acc_on_device(ACC_DEVICE_HOST)) then
            v = -1
        else
            v = 2
        end if
!$acc end parallel

        print *,'v is',v

        end program


compiled with gfortran 10 with the flags:
-g -fopenacc -foffload=amdgcn-amdhsa="-march=gfx906" -foffload=-lgfortran
-foffload=-lm

Reply via email to