1! { dg-do run }
2! { dg-shouldfail "runtime error" }
3! { dg-output "At line 13.*File already opened" }
4
5! PR 65563 - this used to segfault for some versions.
6  variable_1 = 0
7  open(345,iostat=ios, form='unformatted')
8  read(345, err=37, end=37) variable_1
9  close(345)
10  go to 38
1137 continue
1238 continue
13  open(522, file="fort.345", form='unformatted')
14  write(522) variable_1
15  rewind(522)
16  close(522)
17end program
18! { dg-final { remote_file build delete "fort.345" } }
19