扩展数据类型多层嵌套，声明多个同类型变量后无法初始化

li913

你这个根本就不能编译通过，勿论其他。

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

module curveModule
    type point   !定义一个点
        integer x,y,z
    end type

    type curve   !定义一个曲线，有很多点构成
        type(point),dimension(:),allocatable::points
        character(:),allocatable::name
        contains
            procedure,pass,public::initCurve
    end type

    contains
        subroutine initCurve(self,psNum,ps,theName)
            class(curve)::self
            integer::psNum
            type(point),dimension(psNum)::ps
            character(len=*)::theName
            allocate(self.points(psNum))
            self.points=ps
            self.name=theName
        end subroutine
end module

module figureModule
use curveModule
    type figure !！定义图表，有几条曲线构成
        type(curve)::c1,c2,c3

        contains
            procedure,pass::init
    end type
        contains
            subroutine init(self,inputFile)
                character(*) inputFile
                class(figure)::self
                type(point)::p1=point(1,2,3),p2=point(2,3,4),p3=point(3,4,5),p4=point(4,5,6)
                type(point)::ps1(4),ps2(4)
                ps1=(/p1,p2,p3,p4/)
                ps2=(/p2,p3,p4,p1/)

                call self.c1.initCurve(size(ps1),ps1,'curve-1')
                call self.c2.initCurve(size(ps2),ps2,'curve-2') !！若是只有才c1一个变量可执行，两个就不可，会覆盖第一个
                write(*,*) self.c1.name,self.c2.name
            end subroutine
end module

program main
use figureModule
    type(figure)::f
    call f.init('a.txt') !！读入一个数据文件，将数据文件格式化的存成一个图表对象
end program