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