1! { dg-do run }
2! { dg-options "-std=legacy" }
3!
4! pr19478 read from /dev/null
5! Thomas.Koenig@online.de
6#if defined  _WIN32
7#define DEV_NULL "nul"
8#else
9#define DEV_NULL "/dev/null"
10#endif
11      character*20 foo
12      open(10,file=DEV_NULL)
13      write(10,'(A)') "Hello"
14      rewind(10)
15      read(10,'(A)',end=100) foo
16      STOP 1
17 100  continue
18      end
19