! { dg-do run } | |
! { dg-options "-std=f2008" } | |
! { dg-shouldfail "runtime error" } | |
! { dg-output "At line 14.*File already opened" } | |
! PR 65563 - this used to segfault for some versions. | |
variable_1 = 0 | |
open(345,iostat=ios, form='unformatted') | |
read(345, err=37, end=37) variable_1 | |
close(345) | |
go to 38 | |
37 continue | |
38 continue | |
open(522, file="fort.345", form='unformatted') | |
write(522) variable_1 | |
rewind(522) | |
close(522) | |
end program | |
! { dg-final { remote_file build delete "fort.345" } } |