From 32c850b78d573df276d17e8adc7613387d512922 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 28 Apr 2007 02:04:35 +0000 Subject: [PATCH] 2007-04-27 Jerry DeLisle PR libfortran/31532 * gfortran.dg/inquire_5.f90: Update test. From-SVN: r124254 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/inquire_5.f90 | 2 ++ 2 files changed, 7 insertions(+) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 22726009746..6514d3423e2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-04-27 Jerry DeLisle + + PR libfortran/31532 + * gfortran.dg/inquire_5.f90: Update test. + 2007-04-27 Ian Lance Taylor PR middle-end/31710 diff --git a/gcc/testsuite/gfortran.dg/inquire_5.f90 b/gcc/testsuite/gfortran.dg/inquire_5.f90 index 0daa579d1b6..2a5678ba2fc 100644 --- a/gcc/testsuite/gfortran.dg/inquire_5.f90 +++ b/gcc/testsuite/gfortran.dg/inquire_5.f90 @@ -26,6 +26,8 @@ close(7) open(7,STATUS='SCRATCH',POSITION='REWIND') write(7,*)'this is a record written to the file' + write(7,*)'this is another record' + backspace(7) inquire(7,position=chr) if (chr.NE.'ASIS') CALL ABORT rewind(7) -- 2.30.2