ex1005.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 10 行

program ex1005
  implicit none
  integer, pointer :: a(:) ! 定义a是一维的指针数组
  allocate( a(5) )  ! 配置5个整数的空间给指针a
  a = (/ 1,2,3,4,5 /)
  write(*,*) a
  deallocate( a )   ! allocate得到的内存要记得归还
  stop
end