From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 6 Dec 2008 04:17:31 +0000 (+0000)
Subject: re PR fortran/38291 (Rejects I/O with POS= if FMT=*)
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=abc79c3a6d295d42b0a9ab48cea07090b0161ee8;p=platform%2Fupstream%2Fgcc.git

re PR fortran/38291 (Rejects I/O with POS= if FMT=*)

2008-12-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/38291
	* gfortran.dg/streamio_16.f90: New test.

From-SVN: r142516
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b841930..5b26088 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-12-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/38291
+	* gfortran.dg/streamio_16.f90: New test.
+
 2008-12-05  Jakub Jelinek  <jakub@redhat.com>
 
 	PR c++/35336
diff --git a/gcc/testsuite/gfortran.dg/streamio_16.f90 b/gcc/testsuite/gfortran.dg/streamio_16.f90
new file mode 100644
index 0000000..a415389
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/streamio_16.f90
@@ -0,0 +1,19 @@
+! { dg-do run }
+! PR38291 Rejects I/O with POS= if FMT=*
+character(15) :: sAccess
+character(1) :: instr
+integer :: mypos, i
+mypos = 0
+open(50, access="stream", form="formatted")
+write(50, *, pos=1) "Just something "
+do i=1,17
+  read( 50, *,pos=i)
+  inquire(50, access=sAccess, pos=mypos)
+  if (sAccess.ne."STREAM") call abort
+  if (mypos.ne.18) call abort
+end do
+read (50,*, end=10)
+call abort
+ 10 continue
+close(50,status="delete")
+end