3 ! test namelist with character arrays
4 ! Based on example provided by paulthomas2@wanadoo.fr
9 character(len=2) :: ch(2)
10 character(len=2) :: dh(2)=(/"aa","bb"/)
12 open (10, status = "scratch")
13 write (10, *) "&A ch = 'aa' , 'bb' /"
15 READ (10,nml=a, iostat = ier)
17 if ((ier /= 0) .or. (any (ch /= dh))) call abort ()