1! { dg-do run } 2! PR26509 : Writing beyond fixed length direct access records. 3! Test case derived from PR. 4! Submitted by Jerry Delisle <jvdelisle@gcc.gnu.org>. 5program testrecl 6 implicit none 7 open(unit = 10, form = 'unformatted', access = 'direct', recl = 4) 8 write(unit=10,rec=1, err=100) 1d0 9 STOP 1 10 100 continue 11 close(unit=10, status='delete') 12 end 13