From 68c41a6cc47494d33bd07ea414ba9e42f8b96352 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Fri, 12 Aug 2005 20:02:43 +0000 Subject: [PATCH] eoshift.f90: Correct format. 2005-08-12 Thomas Koenig * gfortran.dg/eoshift.f90: Correct format. From-SVN: r103045 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/eoshift.f90 | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 39ec91f6841a..c54ba51d97cd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2005-08-12 Thomas Koenig + + * gfortran.dg/eoshift.f90: Correct format. + 2005-08-12 Thomas Koenig * gfortran.fortran-torture/execute/character_passing.f90: diff --git a/gcc/testsuite/gfortran.dg/eoshift.f90 b/gcc/testsuite/gfortran.dg/eoshift.f90 index bb1cba4712d1..ae7643bfd8f8 100644 --- 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