如何在FORTRAN中使用指针数组赋值不相邻的数组条目

program pointer_array_example
  implicit none
  
  ! 声明指针和数组
  integer, pointer :: ptr(:)
  integer :: array(10)
  
  ! 分配内存给指针
  allocate(ptr(5))
  
  ! 给数组赋值
  array = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
  
  ! 使用指针数组赋值不相邻的数组条目
  ptr(1) => array(1)
  ptr(2) => array(3)
  ptr(3) => array(5)
  ptr(4) => array(7)
  ptr(5) => array(9)
  
  ! 打印指针数组的值
  print *, ptr
  
  ! 释放内存
  deallocate(ptr)
  
end program pointer_array_example