你没告诉它AB是多少，你这样的output数组用法是固定大小数组 ，可是你并没有给出数组大小。你把integer ab 改成integer，parameter::ab=1 就行了

[Fortran] 纯文本查看 复制代码

Module aaa
contains
  subroutine aabs(input,output)
    integer ab , i   
    DOUBLE PRECISION input,output(:)
    ab=size(output)
    do i=1,ab
      output(i)=abs(input)  
    end do   
  end subroutine aabs
End Module aaa
  
program test01
  use aaa
  integer , parameter :: n = 2
  DOUBLE PRECISION input,output(n)
  input=-1    
  call aabs(input,output)     
end program test01