1! { dg-do run } 2! PR27704 Incorrect runtime error on multiple OPEN. 3! Test case contribyted by Jerry DeLisle <jvdelisle@gcc.gnu.org> 4 OPEN(8, FORM = 'unformatted', STATUS = 'scratch') 5 OPEN(8, FORM = 'unformatted', status = 'scratch') 6 close(8) 7 open(8) 8 open(8, status = 'old') 9 close(8, status="delete") 10 end 11 12