本帖最后由 Transpose 于 2021-8-17 22:01 编辑
type的定义无法传递给子程序,即使是相同的定义方式,也无法认为是同一个类型。子程序使用type必须要借助module,
[Fortran] 纯文本查看 复制代码 module mytype
implicit none
type m
real::a
end type m
end module mytype
program main
use mytype
implicit none
type(m)::b
b%a=2.0
call test(b)
end program main
subroutine test(b)
use mytype
implicit none
type(m)::b
write(*,*)b%a
end subroutine test
|