diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/arrayio_16.f90 | 13 |
2 files changed, 19 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 32f9189..c9e9c63 100644 --- 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 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 |