1! { dg-do run }
2! PR37294 Namelist I/O to array character internal units.
3! Test case from adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
4  character(30) :: line(3)
5  namelist /stuff/ n
6  n = 123
7  line = ""
8  write(line,nml=stuff)
9  if (line(1) .ne. "&STUFF") call abort
10  if (line(2) .ne. " N=        123,") call abort
11  if (line(3) .ne. " /") call abort
12  end
13