fortran select type code example

Example: fortran select type

select type(a)
type is(thing)

class is(stuff)

end select