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