Fortran 派生数据类型常量与构造器

当希望初始化一个类型时，

john = person('John', 'R', 21)