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 22726009746c84145f305f8690093d6addfc6817..6514d3423e2fffe0fe62bc78d8150f6ef6263090 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 0daa579d1b678d3a5eedd9ca6d02e70c73a72196..2a5678ba2fc137144b63f4f00d884d6d2876fe77 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)