gcc/testsuite/gfortran.dg/pr16935.f90

   1 ! { dg-do run }
   2 ! pr16935
   3 ! segfault at run time on open statement
   4        program bug2
   5        implicit none
   6        open( 1 , file = "str_500.txt", position = "REWIND" )
   7        close( 1 , status = "DELETE" )
   8        end