diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-07 04:22:29 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-07 04:22:29 +0000 |
| commit | e21902c84951fe2f418ab89ff729ef3acfcd6965 (patch) | |
| tree | 582aa90a7d687d264c1225821251cb8835d85cd7 /gcc | |
| parent | 2806a890a2e2852123e97f76cb55132b32c67743 (diff) | |
| download | gcc-e21902c84951fe2f418ab89ff729ef3acfcd6965.tar.gz | |
2014-07-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/61640
* gfortran.dg/arrayio_16.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212322 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -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 32f9189d57a..c9e9c635701 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 00000000000..46814ae5d55 --- /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 |