| ! { dg-do run } | |
| ! PR67367 | |
| program bug | |
| implicit none | |
| character(len=1) :: c | |
| character(len=256) :: message | |
| integer ios | |
| call system('[ -d junko.dir ] || mkdir junko.dir') | |
| open(unit=10, file='junko.dir',iostat=ios,action='read',access='stream') | |
| if (ios.ne.0) then | |
| call system('rmdir junko.dir') | |
| STOP 1 | |
| end if | |
| read(10, iostat=ios) c | |
| if (ios.ne.21.and.ios.ne.0) then | |
| close(10, status='delete') | |
| STOP 2 | |
| end if | |
| close(10, status='delete') | |
| end program bug |