1 ! { dg-do run { xfail *-*-freebsd* *-*-dragonfly* hppa*-*-hpux* 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')