OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

eoshift.f90: Correct format. 

2005-08-12  Thomas Koenig  <Thomas.Koenig@online.de>

	* gfortran.dg/eoshift.f90:  Correct format.

From-SVN: r103045
This commit is contained in:
Thomas Koenig 2005-08-12 20:02:43 +00:00 committed by Thomas Koenig
parent 7cd5c07539
commit 68c41a6cc4
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2005-08-12 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.dg/eoshift.f90: Correct format.
2005-08-12 Thomas Koenig <Thomas.Koenig@online.de> 2005-08-12 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.fortran-torture/execute/character_passing.f90: * gfortran.fortran-torture/execute/character_passing.f90:

2
gcc/testsuite/gfortran.dg/eoshift.f90
View File

@ -2,5 +2,5 @@
! PR 18958: We used to segfault for eoshifting off the end of an array. ! PR 18958: We used to segfault for eoshifting off the end of an array.
program main program main
character(len=20) line character(len=20) line
write (line,'(I4)') eoshift((/1, 3/), 3) write (line,'(2I4)') eoshift((/1, 3/), 3)
end program main end program main