summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/open_dev_null.f90
blob: 00394cb55a68b29a2a3e353a977a5ffa71136e28 (plain)
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