1! { dg-do run }
2!
3! Test the fix for PR88980 in which the 'span' field if the descriptor
4! for 'Items' was not set, causing the assignment to segfault.
5!
6! Contributed by Antony Lewis  <antony@cosmologist.info>
7!
8program tester
9  call gbug
10contains
11  subroutine gbug
12    type TNameValue
13      character(LEN=:), allocatable :: Name
14    end type TNameValue
15
16    type TNameValue_pointer
17      Type(TNameValue), allocatable :: P
18    end type TNameValue_pointer
19
20    Type TType
21      type(TNameValue_pointer), dimension(:), allocatable :: Items
22    end type TType
23    Type(TType) T
24
25    allocate(T%Items(2))
26    allocate(T%Items(2)%P)
27    T%Items(2)%P%Name =  'test'
28    if (T%Items(2)%P%Name .ne.  'test') stop 1
29
30  end subroutine gbug
31end program tester
32