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
9