gcc/testsuite/gfortran.dg/pr19467.f90

   1 ! { dg-do run { target fd_truncate } }
   2 ! pr 19467
   3 ! test namelist with character arrays
   4 ! Based on example provided by paulthomas2@wanadoo.fr
   5
   6 program 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 ()
  18 end program pr19467