! Program Example from "Essential Fortran 90 & 95" by Loren P. Meissner
! Copyright 1996. Copying for sale requires permission from the author.
! Otherwise, distribution is permitted if these three lines are included.

! Example 6.23. Nested structure constructor and component reference.
  program G23
    use G23M
    implicit none
    type (Big) :: A
! start program G23
    A = Big ( 123, (/ &
        Small (1, 1, (/ "ABCDE", "FGHIJ" /) ), &
        Small (2, 2, (/ "KLMNO", "PQRST" /) ) &
          /) )
    write (unit = *, fmt = *) A % How_Many, A % Data(1) % J, A % Data(2) % Word(2)(3: 5)
    stop
  end program G23
