定义子例程序时变量选用了派生数据类型，变量类型不匹配

Transpose

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