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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d0b9521f656725cdcad6b6098b01f6a1e4e1ddd2..b38a1efd4cddae3227c1ef2d7ad13714e4b0bb38 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/testsuite/gfortran.dg/arrayio_8.f90 b/gcc/testsuite/gfortran.dg/arrayio_8.f90
new file mode 100644 (file)
index 0000000..7448221
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/arrayio_8.f90
@@ -0,0 +1,15 @@
+! { 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
+