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