1! { dg-do run }
2! { dg-options "-std=legacy" }
3!
4! PR28339, This test checks that internal unit array I/O handles a full record
5! and advances to the next record properly.  Test case derived from PR
6! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
7      program main
8      integer          i
9      character*8      rec(3)
10      rec = ""
11      write (rec,fmt=99999)
12      if (rec(1).ne.'12345678') call abort()
13      if (rec(2).ne.'record2') call abort()
14      if (rec(3).ne.'record3') call abort()
1599999 format ('12345678',/'record2',/'record3')
16      end
17
18