procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

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

From-SVN: r212322
This commit is contained in:
Jerry DeLisle 2014-07-07 04:22:29 +00:00
parent eeeddef397
commit 1b38fe0e93
2 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

@ -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>

13
gcc/testsuite/gfortran.dg/arrayio_16.f90 Normal file
View file

@ -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