我想在子程序中分配动态数组，就编了一个小程序，测试一下，代码见下
    program test2
    implicit none
    integer,allocatable::shuzu(:)
    print*,'test'
    call all_cate(shuzu)
    print*,shuzu
    end program

    subroutine all_cate(shuzu)
    implicit none
    integer::i,er
    integer,allocatable::shuzu(:)
    print*,'in'
    allocate(shuzu(3),stat=er)
    print*,er,'er'
    do i=1,3,1
        print*,i
        shuzu(i)=i*2
    end do
    deallocate(shuzu)
    return

    end subroutine all_cate
但是allocate语句出错，错误提示不知道是啥意思？
test
 in
getRegFromUnwindContext: Can't get Gr0 from UnwindContext, using 0
forrtl: severe (174): SIGSEGV, segmentation fault occurred
Image              PC                Routine            Line        Source             
test2              4000000000002B30  Unknown               Unknown  Unknown
test2              40000000000029D0  Unknown               Unknown  Unknown
Unknown            20000000003FDC50  Unknown               Unknown  Unknown
test2              40000000000027C0  Unknown               Unknown  Unknown
可以这样实现吗？应该可以啊，谢谢！