blob: cb54da0f044df448180c86617392ff42eb653438 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do run { xfail *-*-freebsd* *-*-dragonfly* powerpc-ibm-aix* } }
! 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')
call abort
end if
read(10, iostat=ios) c
if (ios.ne.21) then
close(10, status='delete')
call abort
end if
close(10, status='delete')
end program bug
|
