1! { dg-do run } 2! PR27304 Test running out of data descriptors with data remaining. 3! Derived from case in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>. 4 program test 5 implicit none 6 integer :: n 7 n = 1 8 open(10, status="scratch") 9 write(10,"(i7,(' abcd'))", err=10) n, n 10 STOP 1 11 10 close(10) 12 end program test 13