diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7bed3caf259..7fbd202c23c 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2016-02-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/69668
+	* gfortran.dg/namelist_88.f90: New test.
+
 2016-02-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/69668
diff --git a/gcc/testsuite/gfortran.dg/namelist_88.f90 b/gcc/testsuite/gfortran.dg/namelist_88.f90
new file mode 100644
index 00000000000..0a6ac9b3bb3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/namelist_88.f90
@@ -0,0 +1,29 @@
+! { dg-do run }
+! PR69668 Error reading namelist opened with DELIM='NONE' 
+program namelist
+  implicit none
+
+  integer,parameter :: tabsz=10
+  integer :: i
+  character(len=10),dimension(tabsz) :: tab
+  namelist/tab_nml/tab
+
+  tab(:)='invalid'
+
+  ! Create a temporary test namelist file
+  open(unit=23,status='scratch',delim='none')
+  write(23,*) "&tab_nml"
+  write(23,*) "tab(1)='in1',"
+  write(23,*) "tab(2)='in2'"
+  write(23,*) "/"
+  rewind(23)
+
+  read(unit=23,nml=tab_nml)
+
+  close(unit=23)
+
+  if (tab(1).ne.'in1') call abort
+  if (tab(2).ne.'in2') call abort
+  if (any(tab(3:tabsz).ne.'invalid')) call abort
+
+end program namelist