re PR libfortran/61640 (KIND=4 Character Array Internal Unit Read Fail)

2014-07-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/61640
	* gfortran.dg/arrayio_16.f90: New test.

From-SVN: r212322

gcc/testsuite/ChangeLog

+2014-07-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/61640
+	* gfortran.dg/arrayio_16.f90: New test.
+
 2014-07-06  Marek Polacek  <polacek@redhat.com>
 
 	* g++.dg/ipa/imm-devirt-1.C: Fix regexp in dg-final.
@@ -276,7 +281,7 @@
 2014-06-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/61499
-	gfortran.dg/arrayio_15.f90: New test.
+	* gfortran.dg/arrayio_15.f90: New test.
 
 2014-06-26  Uros Bizjak  <ubizjak@gmail.com>
 

gcc/testsuite/gfortran.dg/arrayio_16.f90

+! { dg-do run }
+! PR61640 KIND=4 Character Array Internal Unit Read Fail
+program read_internal
+  integer :: x(9),i
+  integer :: y(9)
+  character(kind=4,len=30), dimension(3) :: source
+
+  y = reshape ((/ 1,1,-1,1,-1,1,-1,1,1 /), shape(x))
+  source=[4_"  1   1  -1",4_"  1  -1   1",4_" -1   1   1"]
+  !print *, (trim(source(i)), i=1,3)
+  read(source,*) (x(i), i=1,9) ! This read fails for KIND=4 character
+  if (any(x /= y )) call abort
+end program read_internal