Jenis Pilih Fortran
select type(a)
type is(thing)
class is(stuff)
end select
Clear Caterpillar
select type(a)
type is(thing)
class is(stuff)
end select