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