fortran90动态数组传递参数的问题

mcl616

！程序的目的是在主程序里声明一个一维动态数组，但数组的长度及内容通过子程序来定
module tt
contains
subroutine test(s)
    implicit none
    integer i
    integer,allocatable::s(
    allocate(s(5))
    do i=1,5
         s(i)=i
     end do
end subroutine test
end module

program main
    use tt
    integer,allocatable:s)
    call test(s)
    m=ubound(s,1)
   write(*,*)m
   write(*,*)s
   pause
end program main

但是,问题是m=4,而不是想象中的m=5

mcl616

为什么是这样，请高手指点

铁道科学

请问楼主用的是什么编译器，windows环境下ivf计算结果为m=5。

wangmianzhi

gfortran表示也是5

1. module tt
   
2. contains
   
3. subroutine test(s)
   
4.     implicit none
   
5.     integer i
   
6.     integer,allocatable::s(:)
   
7.     allocate(s(5))
   
8.     do i=1,5
   
9.          s(i)=i
   
10.      end do
    
11. end subroutine test
    
12. end module
    
13. 
    
14. program main
    
15.     use tt
    
16.     integer,allocatable::s(:)
    
17.     call test(s)
    
18.     m=ubound(s,1)
    
19.    write(*,*)m
    
20.    write(*,*)s
    
21. end program main

复制代码