Polymorphic Variable Detecting Arrays

Is it possible for an unlimited polymorphic variable to detecd an array.

subroutine test (tn)
  class (*), Intent (Out) :: tn

  Select type (tn)

  Type Is (Integer, dimension(:))
    tn = 3

  End Select

end subroutine