From: Jerry DeLisle Date: Mon, 7 Jul 2014 04:22:29 +0000 (+0000) Subject: re PR libfortran/61640 (KIND=4 Character Array Internal Unit Read Fail) X-Git-Tag: releases/gcc-5.1.0~6479 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1b38fe0e93229eefa1259e45f90c5d936b288a3d;p=thirdparty%2Fgcc.git re PR libfortran/61640 (KIND=4 Character Array Internal Unit Read Fail) 2014-07-06 Jerry DeLisle PR libgfortran/61640 * gfortran.dg/arrayio_16.f90: New test. From-SVN: r212322 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 32f9189d57a1..c9e9c6357014 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-07-06 Jerry DeLisle + + PR libgfortran/61640 + * gfortran.dg/arrayio_16.f90: New test. + 2014-07-06 Marek Polacek * g++.dg/ipa/imm-devirt-1.C: Fix regexp in dg-final. @@ -276,7 +281,7 @@ 2014-06-26 Jerry DeLisle PR libgfortran/61499 - gfortran.dg/arrayio_15.f90: New test. + * gfortran.dg/arrayio_15.f90: New test. 2014-06-26 Uros Bizjak diff --git a/gcc/testsuite/gfortran.dg/arrayio_16.f90 b/gcc/testsuite/gfortran.dg/arrayio_16.f90 new file mode 100644 index 000000000000..46814ae5d550 --- /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