From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 28 Apr 2007 02:04:35 +0000 (+0000)
Subject: 2007-04-27  Jerry DeLisle
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=32c850b78d573df276d17e8adc7613387d512922;p=gcc.git

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 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  <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 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)