1! { dg-do run }
2! PR37707 Namelist read of array of derived type incorrect
3! Test case from Tobias Burnus
4  IMPLICIT NONE
5  integer :: j
6  character(len=5) :: str(4)
7  character(len=900) :: nlstr
8  namelist /nml/ str, j
9  str = ''
10  j = -42
11  nlstr = '&nml str = "a", "b", "cde", j = 5 /'
12  read(nlstr,nml)
13  open(99, status="scratch")
14  write(99,nml)
15  rewind(99)
16  j = -54
17  str = 'XXXX'
18  read(99,nml)
19  if (j.ne.5) call abort
20  if (any(str.ne.["a    ","b    ","cde  ","     "])) call abort
21  close(99)
22end
23