eoshift.f90: Correct format.

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

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

From-SVN: r103045

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 39ec91f6841a5fb79f7e929cc60be1e61c4a25cf..c54ba51d97cd5b563963020bc82d0725cb815eb6 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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>
 
        * gfortran.fortran-torture/execute/character_passing.f90:

diff --git a/gcc/testsuite/gfortran.dg/eoshift.f90 b/gcc/testsuite/gfortran.dg/eoshift.f90
index bb1cba4712d15e456589ca511544a6118a31d1fa..ae7643bfd8f86c4819b3a8889c744d61c372e6e8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/eoshift.f90
+++ b/gcc/testsuite/gfortran.dg/eoshift.f90
@@ -2,5 +2,5 @@
 ! PR 18958:  We used to segfault for eoshifting off the end of an array.
 program main
   character(len=20) line
-  write (line,'(I4)') eoshift((/1, 3/), 3)
+  write (line,'(2I4)') eoshift((/1, 3/), 3)
 end program main