type :: item integer * 4, allocatable :: subitem(:) end type type(item), allocatable :: iblocks(:) allocate(iblocks(85)) do i = 1, 85 allocate(iblocks(i) % subitem(49)) end do