1 files changed, 28 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/namelist_84.f90 b/gcc/testsuite/gfortran.dg/namelist_84.f90
new file mode 100644
index 0000000000..af139d91ed
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/namelist_84.f90
@@ -0,0 +1,28 @@
+! { dg-do run }
+program namelist_delim_none
+   implicit none
+   character(512) :: internal_unit
+   character(5), dimension(5) :: mystring
+   real, dimension(4) :: somenum
+   integer :: i
+   namelist /mylist/ mystring, somenum
+   mystring(1)='mon'
+   mystring(2)='tue'
+   mystring(3)='wed'
+   mystring(4)='thu'
+   mystring(5)='fri'
+   somenum = reshape(source = (/ 2, 3, 5, 7 /), shape=shape(somenum))
+
+   open(unit=10,status='scratch',delim='none')
+   write(10, mylist)
+   rewind(10)
+   mystring = "xxxxx"
+   read(10,mylist)
+   if (any(mystring /= (/ 'mon', 'tue', 'wed', 'thu', 'fri' /))) call abort
+   rewind(10)
+   do i=1,5
+     read(10,'(a)') internal_unit
+     if (scan(internal_unit,"""'").ne.0) call abort
+   end do
+   close(10)
+end program