diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-07-22 03:18:33 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-07-22 03:18:33 +0000 |
| commit | 0ae57e4c099985f028848d23f9f2365c4a38fc5a (patch) | |
| tree | 3eeed63ebfb533ebd44d21819ede4ee356eab556 /gcc | |
| parent | 397bc09a6539e72c1e93b7e9fa48870037ba5136 (diff) | |
| download | gcc-0ae57e4c099985f028848d23f9f2365c4a38fc5a.zip gcc-0ae57e4c099985f028848d23f9f2365c4a38fc5a.tar.gz gcc-0ae57e4c099985f028848d23f9f2365c4a38fc5a.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/arrayio_8.f90 | 15 |
2 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d0b9521..b38a1ef 100644 --- 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 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 + |