1! { dg-do run }
2!
3! Test the fix for PR89200, in which the indexing did not work in
4! the write statement below.
5!
6! Contributed by Damian Rouson  <damian@sourceryinstitute.org>
7!
8  type foo
9    character(len=:), allocatable :: string
10  end type
11  type foo_list
12    type(foo), allocatable :: entry(:)
13  end type
14  type(foo_list) list
15  character(4) :: buffer
16  list = foo_list([foo('12'), foo('34')])
17  write(buffer, '(2a2)') list%entry(1)%string, list%entry(2)%string
18  if (buffer .ne. '1234') stop 1
19  deallocate (list%entry)
20end
21