gcc/testsuite/gfortran.dg/write_to_null.F90

   1 ! { dg-do run }
   2 ! pr18983
   3 ! could not write to /dev/null
   4
   5 #if defined  _WIN32
   6 #define DEV_NULL "nul"
   7 #else
   8 #define DEV_NULL "/dev/null"
   9 #endif
  10
  11        integer i
  12        open(10,file=DEV_NULL)
  13        do i = 1,100
  14          write(10,*) "Hello, world"
  15        end do
  16        end