| ! { dg-do run } | |
| ! { dg-options "-std=legacy" } | |
| ! | |
| ! pr19478 read from /dev/null | |
| ! Thomas.Koenig@online.de | |
| #if defined _WIN32 | |
| #define DEV_NULL "nul" | |
| #else | |
| #define DEV_NULL "/dev/null" | |
| #endif | |
| character*20 foo | |
| open(10,file=DEV_NULL) | |
| write(10,'(A)') "Hello" | |
| rewind(10) | |
| read(10,'(A)',end=100) foo | |
| STOP 1 | |
| 100 continue | |
| end |