Commit 0ae57e4c by Jerry DeLisle

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
parent 397bc09a
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.
! { 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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment