如何在Fortran中实现数组结构而不是结构数组？

module array_structure
  implicit none

  type :: my_struct
    integer :: id
    real :: value
  end type my_struct

  type, extends(my_struct) :: my_array_struct
    real, dimension(3) :: data
  end type my_array_struct

contains

  subroutine print_array_struct(arr)
    type(my_array_struct), intent(in) :: arr

    write(*, '(A, I0)') "ID: ", arr%id
    write(*, '(A, F0.2)') "Value: ", arr%value
    write(*, '(A)') "Data: "
    write(*, '(3F0.2)') arr%data
  end subroutine print_array_struct

end module array_structure

program main
  use array_structure
  implicit none

  type(my_array_struct) :: my_array

  my_array%id = 1
  my_array%value = 2.5
  my_array%data = [1.0, 2.0, 3.0]

  call print_array_struct(my_array)

end program main