Fortran select type

在使用超类指针时，也可以分辨出对象属于哪个子类，并进而访问子类的变量和方法。

select type(obj)
type is ()
  ...
type is ()
  ...
class is ()
  ...
class default
  ...
end select