2 ! { dg-shouldfail "runtime error" }
3 ! { dg-output "At line 13.*File already opened" }
5 ! PR 65563 - this used to segfault for some versions.
7 open(345,iostat
=ios
, form
='unformatted')
8 read(345, err
=37, end=37) variable_1
13 open(522, file
="fort.345", form
='unformatted')
18 ! { dg-final { remote_file build delete "fort.345" } }