程序需要改改：
program arraytest2
    implicit none
    integer,allocatable::a(:)
    integer::b(2)=(/1,3/)
    call sub(a,b,size(b))
    print*,a
    pause
contains
    subroutine sub(aa,bb,sszb)
        integer,intent(out),allocatable::aa(:)
        integer,intent(in) ::bb(*),sszb
        allocate(aa(sszb))
        aa=bb(1:sszb)+1
    end subroutine
end program

并且需要在新版本的IVF中编译（CVF是不可以的喔）
因为传递的B数组如果是静态分配的，那无法从子程序中取其大小，故加多一个参数就行了：）

Module AllocatableDummyArgument
  implicit none
  
contains 
  subroutine sub(a, b)   ! Fortran 2003 Standard
    implicit none
    integer, intent(out), allocatable:: a(:)
    integer, intent(in):: b(:)
    ! *** *** *** Intermediate Variable *** *** ***
    integer:: state
    character(len = 40):: Err_Msg
    
    allocate( a(size(b)), stat = state, errmsg = Err_Msg )
    If (state == 0) Then
      a = b + 1
    Else 
      write(*, *) Err_Msg
    End If   ! state
    return
  end subroutine  
  
End Module



program main
  use AllocatableDummyArgument
  implicit none
  integer, allocatable:: a(:)
  
  integer:: b(3) = (/1, 3, 5/)
  call sub(a, b)
  write(*, *) a
 
  stop
end program main