1! { dg-do run }
2! PR67367
3program bug
4   implicit none
5   character(len=1) :: c
6   character(len=256) :: message
7   integer ios
8   call system('[ -d junko.dir ] || mkdir junko.dir')
9   open(unit=10, file='junko.dir',iostat=ios,action='read',access='stream')
10   if (ios.ne.0) then
11      call system('rmdir junko.dir')
12      STOP 1
13   end if
14   read(10, iostat=ios) c
15   if (ios.ne.21.and.ios.ne.0) then
16      close(10, status='delete')
17      STOP 2
18   end if
19   close(10, status='delete')
20end program bug
21