type (my_type), dimension (10) :: a