Type 包含 allocatable 数组

唐汉

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

program main

   implicit none

   type :: mytype
      sequence
      integer, dimension(:), allocatable :: array_type
      integer, dimension(10) :: other_variables
   end type mytype

   type(mytype), dimension(:), allocatable :: array_main
   integer :: i

   allocate (mytype :: array_main(10))
   do i = 1, size(array_main)
      allocate (array_main(i)%array_type(10))
   end do

end program main

不晓得是不是正确理解了你的问题，但是应该只是格式问题。