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