fortran - 显示 Fortran 中意图(out)和意图(inout)之间差异的有效程序

Question

这是我在 SO 上找到的帖子的后续:Difference between intent(out) and intent(inout)

链接的问题通过询问 invalid program 来询问 Fortran 中 intent(out) 和 intent(inout) 之间的区别。 。

任何人都可以想出一个简单的有效程序，通过将 intent(inout) 更改为 intent(out) 或反之亦然来给出不同的结果吗？

Answer 1

给你...

program intent_test
implicit none
integer, allocatable :: a(:)

a = [1,2,3,4,5]

call intent_inout (a)

call intent_out (a)

contains

subroutine intent_inout (a)
integer, allocatable, intent(inout) :: a(:)

if (allocated(a)) then
  print *, a
else
  print *, "Unallocated"
end if

end subroutine intent_inout

subroutine intent_out (a)
integer, allocatable, intent(out) :: a(:)

if (allocated(a)) then
  print *, a
else
  print *, "Unallocated"
end if

end subroutine intent_out

end program intent_test

1 2 3 4 5
未分配