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