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