Subversion Repositories openrisc

! { dg-do run }

! PR37707 Namelist read of array of derived type incorrect

! Test case from Tobias Burnus

  IMPLICIT NONE

  integer :: j

  character(len=5) :: str(4)

  character(len=900) :: nlstr

  namelist /nml/ str, j

  str = ''

  j = -42

  nlstr = '&nml str = "a", "b", "cde", j = 5 /'

  read(nlstr,nml)

  open(99, status="scratch")

  write(99,nml)

  rewind(99)

  j = -54

  str = 'XXXX'

  read(99,nml)

  if (j.ne.5) call abort

  if (any(str.ne.["a    ","b    ","cde  ","     "])) call abort

  close(99)

end