1! { dg-do run }
2! pr 19467
3! test namelist with character arrays
4! Based on example provided by paulthomas2@wanadoo.fr
5
6program pr19467
7  implicit none
8  integer             :: ier
9  character(len=2)    :: ch(2)
10  character(len=2)    :: dh(2)=(/"aa","bb"/)
11  namelist /a/ ch
12  open (10, status = "scratch")
13  write (10, *) "&A ch = 'aa' , 'bb' /"
14  rewind (10)
15  READ (10,nml=a, iostat = ier)
16  close (10)
17  if ((ier /= 0) .or. (any (ch /= dh))) call abort ()
18end program pr19467
19