gcc/testsuite/gfortran.dg/open_status_3.f90

   1 ! { dg-do run }
   2 ! PR27704 Incorrect runtime error on multiple OPEN.
   3 ! Test case contribyted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
   4        OPEN(8, FORM = 'unformatted', STATUS = 'scratch')
   5        OPEN(8, FORM = 'unformatted', status = 'scratch')
   6        close(8)
   7        open(8)
   8        open(8, status = 'old')
   9        close(8, status="delete")
  10        end
  11