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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/streamio_16.f90

+! { 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