编辑代码

program main
implicit none
  integer,parameter :: size=5
  integer :: s=size
  integer :: a(size)=(/ 1,2,3,4,5 /)
  call UseArray1(a,size)
  call UseArray1(a,size)
  call UseArray2(a)
  call UseArray3(a)
  stop
end

subroutine UseArray1(num,size)
implicit none
  integer :: size
  integer ::num(size)
  write(*,*) num
  return
end

subroutine UseArray2(num)
implicit none
  integer :: num(*)
  integer :: i
  write(*,*) (num(i),i=1,5)
  return
end

subroutine UseArray3(num)
implicit none
  integer :: num(-2:2)
  write(*,*) num(0)
  return
end