gcc/testsuite/gfortran.dg/open_errors_3.f90

   1 ! { dg-do  run }
   2 ! PR 90461 Open file on multiple units as of F2018
   3 program openmult
   4   implicit none
   5   character(len=*), parameter :: fname="pr90461.dat"
   6   open(10, file=fname, form="unformatted")
   7   open(11, file=fname, form="unformatted")
   8   close(11)
   9   close(10, status="delete")
  10 end program openmult
  11 ! { dg-final { remote_file build delete "pr90461.dat" } }