gcc/testsuite/gfortran.dg/write_to_null.f90

   1 ! { dg-do run }
   2 ! pr18983
   3 ! could not write to /dev/null
   4        integer i
   5        open(10,file="/dev/null")
   6        do i = 1,100
   7          write(10,*) "Hello, world"
   8        end do
   9        end