[Flang] Pointer assignments for scalar pointers are slower than GFortran

[yus3710-fj]

The execution of the following codes is slower than GFortran.

• test.f90

subroutine pisnnn116(lhs,rhs)
  integer, target :: rhs
  integer, pointer :: lhs
  lhs => rhs
end subroutine

• main.f90

implicit none

integer, parameter :: count = 40000
integer, target :: i,j,k
integer, pointer :: pi
real :: start_t, end_t
interface
  subroutine pisnnn116(lhs,rhs)
    integer, target :: rhs
    integer, pointer :: lhs
  end subroutine
end interface

call cpu_time(start_t)
do i=1,count
  do j=1,count
    call pisnnn116(pi,k)
  end do
end do
call cpu_time(end_t)

print *, end_t - start_t
end

• commands

$ flang -Ofast -mcpu=native test.f90 main.f90 && ./a.out # for A64FX/Grace
$ flang -Ofast -march=native test.f90 main.f90 && ./a.out # for Xeon

	Flang [s]	GFortran [s]
A64FX	17.1498	2.45908713
Grace	2.9177038	0.972499967
Xeon	3.3646245	1.50085294