急问fortran编程问题

急问fortran编程问题

fortran里不允许虚参是allocatable的吧
你这个程序应该在主程序call sub(a,b)之前allocate a，然后子程序里用假定形状的数组
integer,intent(out),dimension(:) :: a

由于数组a没有定义大小，所以不可出现在虚参里，可将a设置成全局变量，从虚参中删除，我习惯用module，更改程序如下：
module adata
implicit none
integer,allocatable::a(:)
endmodule
program arraytest2
use adata
implicit none
integer::b(2)=(/1,3/)
call sub(b)
print*,a
pause
end program
subroutine sub(b)
use adada
integer::b
allocate(a(size(b)))
a=b+1
end subroutine

Fortran2003支持，估计您的编译器有点儿老。
我已在编程爱好者论坛回复了您的问题，不过论坛里的asymptotic兄回复得更完美：）