mfc select type is not supported

[rupertford]

  SUBROUTINE set_field(fld, val)
    implicit none
    type(field_type), INTENT(out) :: fld
    real, INTENT(in) :: val

    select type(fld)
    type is (r2d_field)
       fld%data = val
    class default
    end select

  END SUBROUTINE set_field

tmp.f90:6:5: sorry: SELECT TYPE statement not supported