gcc/testsuite/gfortran.dg/open_errors_2.f90

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