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