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