gcc/testsuite/gfortran.dg/open_dev_null.f90


1
2
3
4
5
6
7
8
9

! { dg-do run }
! PR45723 opening /dev/null for appending writes fails
logical :: thefile
inquire(file="/dev/null",exist=thefile)
if (thefile) then
  open(unit=7,file="/dev/null",position="append")
  close(7)
endif
end