1 ! { dg-do run { xfail *-*-freebsd* *-*-dragonfly* powerpc-ibm-aix* } }
6 character(len=256) :: message
8 call system('[ -d junko.dir ] || mkdir junko.dir')
9 open(unit=10, file='junko.dir',iostat=ios,action='read',access='stream')
11 call system('rmdir junko.dir')
14 read(10, iostat=ios) c
16 close(10, status='delete')
19 close(10, status='delete')