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
17