2007-04-27 Jerry DeLisle

	PR libfortran/31532
	* gfortran.dg/inquire_5.f90: Update test.

From-SVN: r124254

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2272600..6514d34 100644 (file)
--- 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  <iant@google.com>
 
        PR middle-end/31710

diff --git a/gcc/testsuite/gfortran.dg/inquire_5.f90 b/gcc/testsuite/gfortran.dg/inquire_5.f90
index 0daa579..2a5678b 100644 (file)
--- 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)