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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 32f9189..c9e9c63 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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>
 

diff --git a/gcc/testsuite/gfortran.dg/arrayio_16.f90 b/gcc/testsuite/gfortran.dg/arrayio_16.f90
new file mode 100644 (file)
index 0000000..46814ae
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/arrayio_16.f90
@@ -0,0 +1,13 @@
+! { 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