在Fortran中使用指针引用函数或数组

program pointer_example
  implicit none
  
  integer, pointer :: ptr(:)  ! 声明一个指针变量
  
  allocate(ptr(5))  ! 为数组分配内存空间
  
  call initialize_array(ptr)  ! 调用子程序初始化数组
  
  print *, "Array elements:"
  do i = 1, 5
    print *, ptr(i)  ! 引用数组元素
  end do
  
  deallocate(ptr)  ! 释放内存空间
  
contains

  subroutine initialize_array(arr)
    integer, pointer :: arr(:)  ! 声明一个指针参数
    integer :: i
    
    do i = 1, 5
      arr(i) = i  ! 初始化数组元素
    end do
  end subroutine initialize_array

end program pointer_example