gcc/testsuite/gfortran.dg/open_status_2.f90

   1 ! { dg-do run }
   2 ! PR 24945
   3 ! Test reopening file without status specifier or with
   4 ! status='unknown'. The standard says that these two must behave
   5 ! identically, but the actual behaviour is processor dependent.
   6 program open_status_2
   7   open(10, file="f", form='unformatted', status='unknown')
   8   open(10, file="f", form='unformatted', status='unknown')
   9   open(10, file="f", form='unformatted')
  10   close(10, status='delete')
  11 end program open_status_2
  12