gcc/testsuite/gfortran.dg/namelist_97.f90

   1 ! { dg-do run }
   2 !
   3 ! PR95195 - improve runtime error when writing a namelist to an unformatted file
   4
   5 program test
   6   character(len=11) :: my_form = 'unformatted'
   7   integer           :: i = 1, j = 2, k = 3
   8   character(80)     :: iomsg
   9   namelist /nml1/ i, j, k
  10   open  (unit=10, file='namelist_97.dat', form=my_form)
  11   write (unit=10, nml=nml1, iostat=iostat, iomsg=iomsg)
  12   close (unit=10, status='delete')
  13   if (iostat == 0) stop 1
  14   if (iomsg  /= "Namelist formatting for unit connected with FORM='UNFORMATTED'") &
  15        stop 2
  16 end program test