re PR fortran/28339 (gfortran misses a record from a format statement)

2006-07-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/28339
        * gfortran.dg/arrayio_8.f90: New test.

From-SVN: r115671

gcc/testsuite/ChangeLog

+2006-07-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/28339
+	* gfortran.dg/arrayio_8.f90: New test.
+
 2006-07-21  Mike Stump  <mrs@apple.com>
 
 	* g++.dg/ext/visibility/fvisibility-inlines-hidden-3.C: New test.

gcc/testsuite/gfortran.dg/arrayio_8.f90

+! { dg-do run }
+! PR28339, This test checks that internal unit array I/O handles a full record
+! and and advances to th enext record properly.  Test case derived from PR
+! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+      program main
+      integer          i
+      character*8      rec(3)
+      rec = ""
+      write (rec,fmt=99999)
+      if (rec(1).ne.'12345678') call abort()
+      if (rec(2).ne.'record2') call abort()
+      if (rec(3).ne.'record3') call abort()
+99999 format ('12345678',/'record2',/'record3')
+      end
+